|
|
A129900
|
|
Primes p such that 10*p + q is a prime, where q is the smallest prime > p.
|
|
4
|
|
|
2, 31, 47, 61, 73, 83, 131, 151, 157, 211, 251, 257, 353, 383, 557, 563, 571, 593, 661, 733, 797, 941, 971, 977, 997, 1013, 1033, 1063, 1069, 1097, 1187, 1237, 1291, 1307, 1321, 1459, 1511, 1543, 1613, 1621, 1657, 1741, 1753, 1777
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
1097 is a prime, and the next prime is 1103. 10*1097 + 1103 = 12073, which is prime.
|
|
MATHEMATICA
|
Select[Prime[Range[1000]], PrimeQ[10*# + Prime[PrimePi[ # ] + 1]] &]
Select[Prime[Range[1000]], PrimeQ[10#+NextPrime[#]]&] (* Harvey P. Dale, Jun 12 2014 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|