|
|
A200924
|
|
Successive prime factors of 10^(10^100) - 10.
|
|
1
|
|
|
2, 3, 3, 3, 3, 5, 37, 67, 83, 199, 397, 1231, 1627, 2707, 3637, 4519, 21649, 30307, 34849, 51203, 52711, 54547, 56369, 97561, 115963, 123493, 136043, 139987, 149077, 173923, 199999, 200003, 333667, 370477, 513239, 538987, 666733, 770437, 943081, 1466653
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Join[{2, 3, 3, 3, 3, 5}, Select[Prime[Range[7^6]], PowerMod[10, 10^100, #] == 10 &]]
|
|
CROSSREFS
|
|
|
KEYWORD
|
fini,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|