A104802 Primes p such that the string p0123456789 is prime, or primes in A104801.
23, 53, 73, 223, 233, 283, 337, 379, 521, 571, 599, 643, 811, 821, 857, 881, 991, 1093, 1103, 1163, 1229, 1231, 1399, 1439, 1481, 1511, 1583, 1613, 1663, 1723, 1747, 1753, 1823, 1831, 1999, 2017, 2281, 2293, 2351, 2467, 2543, 2621, 2659, 2719, 2741, 2837
Offset: 1
Programs
-
Mathematica
Select[Prime[Range[500]],PrimeQ[#*10^10+123456789]&] (* Harvey P. Dale, Dec 15 2014 *)