A095688 Numbers k such that 10^k + 13 is prime.
1, 2, 3, 17, 25, 81, 140, 142, 152, 280, 291, 406, 4209, 4785, 8474, 9550, 9596, 21773, 22352, 24938, 38428, 48526, 65426, 75441, 76705
Offset: 1
Crossrefs
Cf. A095680 (the actual primes).
Programs
-
Mathematica
lst={};Do[If[PrimeQ[10^n+13], AppendTo[lst, n]], {n, 10^3}];lst (* Vladimir Joseph Stephan Orlovsky, Aug 20 2008 *) -
PARI
for(n=1,1e4,if(ispseudoprime(10^n+13),print1(n", "))) \\ Charles R Greathouse IV, Jul 19 2011
Extensions
More terms from Ryan Propper, Sep 07 2005
5 more terms from Jason Earls, Feb 08 2008
a(23)=65426 from Robert Price, Jan 09 2011
a(24) and a(25) = 75441,76705 from Robert Price, Jan 29 2011
Comments