A215808 Primes of the form 2*prime(k) - prime(k+1).
3, 3, 17, 41, 47, 67, 151, 167, 199, 227, 251, 257, 347, 367, 557, 587, 601, 607, 641, 647, 727, 941, 971, 1051, 1091, 1097, 1117, 1181, 1217, 1277, 1361, 1427, 1447, 1447, 1487, 1487, 1499, 1607, 1697, 1741, 1747, 1741, 1777, 1877, 1901, 2087, 2143, 2281
Offset: 1
Keywords
Examples
k=3: 2*5-7=3, k=4: 2*7-11=3, k=9: 2*23-29=17.
Links
- Zak Seidov, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
pr=Prime[Range[1000]]; s=Select[2*Most[pr]-Rest[pr],PrimeQ] Select[2#[[1]]-#[[2]]&/@Partition[Prime[Range[500]],2,1],PrimeQ] (* Harvey P. Dale, Feb 25 2017 *)
Comments