A127004 Primes p+10^n arising in A127003.

3, 13, 103, 1013, 10007, 100003, 1000003, 10000019, 100000007, 1000000007, 10000000019, 100000000003, 1000000000061, 10000000000037, 100000000000031, 1000000000000037, 10000000000000061, 100000000000000003, 1000000000000000003, 10000000000000000097

Offset: 1

Author

Rick L. Shepherd, Jan 01 2007

Keywords

• nonn

Comments

Equivalently, smallest prime q such that q-10^n is also prime.

Crossrefs

Cf. A127003, A056208.

Programs

Mathematica

s={}; Do[p=0; Until[PrimeQ[q=Prime[p]+10^n], p++]; AppendTo[s, q], {n, 0,20}]; s (* James C. McMahon, Dec 30 2024 *)

Extensions

a(18)-a(19) from James C. McMahon, Dec 30 2024