login
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
OFFSET
1,1
LINKS
Eric Weisstein's World of Mathematics, Googolplex
MATHEMATICA
Join[{2, 3, 3, 3, 3, 5}, Select[Prime[Range[7^6]], PowerMod[10, 10^100, #] == 10 &]]
CROSSREFS
Sequence in context: A042959 A147815 A227246 * A111913 A354142 A210796
KEYWORD
fini,nonn
AUTHOR
STATUS
approved