15 lines
385 B
Text
15 lines
385 B
Text
ClearAll[DeceptiveNumberQ]
|
|
DeceptiveNumberQ[n_Integer] := If[! PrimeQ[n], PowerMod[10, n - 1, 9 n] == 1]
|
|
c = 0;
|
|
out = Reap[Do[
|
|
If[DeceptiveNumberQ[i],
|
|
Sow[i];
|
|
c++;
|
|
If[c >= 1000, Break[]]
|
|
]
|
|
,
|
|
{i, 2, \[Infinity]}
|
|
]][[2, 1]];
|
|
Print["The first 100:"]
|
|
Multicolumn[Take[out, 100], Appearance -> "Horizontal"]
|
|
Print["The 1000th is: ", out[[1000]]]
|