%I #9 Jul 09 2023 11:49:11
%S 2,3,3,3,3,5,37,67,83,199,397,1231,1627,2707,3637,4519,21649,30307,
%T 34849,51203,52711,54547,56369,97561,115963,123493,136043,139987,
%U 149077,173923,199999,200003,333667,370477,513239,538987,666733,770437,943081,1466653
%N Successive prime factors of 10^(10^100) - 10.
%H Dario A. Alpern, <a href="https://www.alpertron.com.ar/googolm.pl">Known prime factors of Googolplex - 10</a>
%H Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/Googolplex.html">Googolplex</a>
%t Join[{2, 3, 3, 3, 3, 5}, Select[Prime[Range[7^6]], PowerMod[10, 10^100, #] == 10 &]]
%Y Cf. A200861, A200879.
%K fini,nonn
%O 1,1
%A _Arkadiusz Wesolowski_, Nov 24 2011
|