Tau number: Difference between revisions

537 bytes removed ,  2 months ago
(Add PARI/GP implementation)
Line 2,976:
972 996 1016 1040 1044 1048 1056 1068 1089 1096
</pre>
 
=={{header|Tiny Craft Basic}}==
<syntaxhighlight lang="basic">10 let count = 0
20 let num = 0
30 let modulus = 0
40 let nums = 100
50 let tau = 0
 
60 rem do
 
70 let count = count + 1
80 let tau = 0
90 let modulus = 1
 
100 rem do
 
100 if count mod modulus <> 0 then 130
 
120 let tau = tau + 1
 
130 rem endif
 
140 let modulus = modulus + 1
 
150 if modulus < count + 1 then 100
 
160 if count mod tau <> 0 then 190
 
170 let num = num + 1
180 print count, tab,
 
190 rem endif
 
200 if num < nums then 60</syntaxhighlight>
 
=={{header|Verilog}}==
305

edits