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,2

Comments

No other terms <= 100000. - Robert Price, Mar 03 2011

Links

Table of n, a(n) for n=1..25.

Mathematica

lst={}; Do[If[PrimeQ[10^n+13], AppendTo[lst, n]], {n, 10^4}]; lst [Vladimir Joseph Stephan Orlovsky, Aug 20 2008]

Prog

(PARI) for(n=1, 1e4, if(ispseudoprime(10^n+13), print1(n", "))) \\ Charles R Greathouse IV, Jul 19 2011

Crossrefs

Cf. A095680 (the actual primes).

Sequence in context: A228198 A023214 A225946 * A029876 A248716 A228201

Adjacent sequences: A095685 A095686 A095687 * A095689 A095690 A095691

Keyword

nonn,more

Author

Jason Earls, Jul 05 2004

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

Status

approved