|
|
A188803
|
|
Primes that divide 2^(2^100) - 1 and 10^(10^100) - 1.
|
|
0
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Sort[Flatten[Table[z = k*2^n + 1; If[PowerMod[2, 2^100, z] == PowerMod[10, 10^100, z] == 1, z], {k, 1, 21, 2}, {n, 75}]]], PrimeQ] (* Arkadiusz Wesolowski, Sep 08 2011 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
fini,full,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|