|
|
A227246
|
|
List of prime factors of 10^(10^(10^100)) - 10.
|
|
3
|
|
|
2, 3, 3, 3, 3, 5, 37, 67, 83, 199, 307, 397, 439, 613, 1123, 1231, 1283, 1627, 2467, 2707, 3203, 3637, 4507, 4519, 5987, 9013, 9043, 9929, 12547, 14369, 14747, 16729, 16843, 16963, 17959, 18973, 21649, 25603, 30307, 32003, 34849, 40151, 42307, 43013, 49787
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
(* Import Mmca coding for "SuperPowerMod" and "LogStar" from text file and then *) k = 5; lst = {2, 3, 3, 3, 3, 5}; While[k < 10001, If[ SuperPowerMod[10, 4, Prime@ k] == 10, AppendTo[lst, Prime@ k]]; k++]; lst (* Robert G. Wilson v, Mar 01 2014 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,fini
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|