|
%I #28 Jun 08 2023 08:49:49
%S 7,663,2121,2593,3561,4717,5863,9459,11239,14397,17289,18919,19411,
%T 21667,25561,26739,27759,28047,28437,28989,35031,41037,41409,41451,
%U 43047,43269,43383,50407,51043,52507,55587,59877,61971,62919,63177
%N Numbers k such that 10^999 + k is a (titanic) prime.
%H N. J. A. Sloane, <a href="/A074282/b074282.txt">Table of n, a(n) for n = 1..101</a>, taken from the Andersen link below.
%H Jens Kruse Andersen, <a href="http://groups.yahoo.com/group/primeform/message/5201">Invitation for 101 titanic helpers</a>
%H Jens Kruse Andersen and others, <a href="/A074282/a074282.txt">Invitation for 101 titanic helpers</a>, digest of 19 messages in primeform Yahoo group, Jan 7 - Jan 12, 2005.
%H Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/TitanicPrime.html">Titanic Prime</a>
%e a(2)=663 because 10^999 + 663 is the 2nd titanic prime.
%t Select[Range[65000], PrimeQ[10^999 + # ] &]
%o (PARI) for(n=1, 10^5, if(gcd(n, 10)==1, if(ispseudoprime(10^999+n), print1(n, ", ")))) \\ _Felix Fröhlich_, Jun 22 2014
%K nonn
%O 1,1
%A _Shyam Sunder Gupta_, Sep 21 2002
%E Extended by _Ray Chandler_, Jan 08 2005
%E Corrected by _Jens Kruse Andersen_, Mar 05 2008
|
