Chowla numbers: Difference between revisions

=={{header|Mathematica}} / {{header|Wolfram Language}}==

<lang Mathematica>ClearAll[Chowla]

Chowla[0 | 1] := 0

Chowla[n_] := DivisorSigma[1, n] - 1 - n

Table[{i, Chowla[i]}, {i, 37}] // Grid

PrintTemporary[Dynamic[n]];

i = 1; Do[If[Chowla[n] == 0, i++], {n, 3, 100, 2}]; i

i = 1; Do[If[Chowla[n] == 0, i++], {n, 3, 1000, 2}]; i

i = 1; Do[If[Chowla[n] == 0, i++], {n, 3, 10000, 2}]; i

i = 1; Do[If[Chowla[n] == 0, i++], {n, 3, 100000, 2}]; i

i = 1; Do[If[Chowla[n] == 0, i++], {n, 3, 1000000, 2}]; i

i = 1; Do[If[Chowla[n] == 0, i++], {n, 3, 10000000, 2}]; i

Reap[Do[If[Chowla[n] == n - 1, Sow[n]], {n, 1, 35 10^6}]][[2, 1]]</lang>

{{out}}

<pre>25

168

1229

9592

78498

664579

{1, 6, 28, 496, 8128, 33550336}</pre>