|
%I #35 Jul 07 2023 09:55:49
%S 3,17,257,641,65537,167772161,2748779069441,46179488366593,
%T 1328165573307087716353,188894659314785808547841
%N Primes that divide 2^(2^100) - 1 and 10^(10^100) - 1.
%C Probably there are no more terms. [_Arkadiusz Wesolowski_, Jul 12 2011]
%H Dario A. Alpern, <a href="https://www.alpertron.com.ar/googolm1.pl">Known prime factors of Googolplex - 1</a>
%H G. L. Honaker, Jr. and Chris Caldwell, <a href="https://t5k.org/curios/cpage/5833.html">Prime Curios! 167772161</a>
%H Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/FermatNumber.html">Fermat Number</a>
%H Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/Googolplex.html">Googolplex</a>
%H Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/GreatestCommonDivisor.html">Greatest Common Divisor</a>
%t 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 *)
%Y Cf. A023394.
%K fini,full,nonn
%O 1,1
%A _Arkadiusz Wesolowski_, Apr 12 2011
|
