OFFSET
1,1
COMMENTS
This sequence gives the increasingly ordered primes of the form k(m) + k(m+2) with k(m) = A018252(m). The m values are 1, 14, 24, 37, 56, 60, ...
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
MATHEMATICA
Module[{nps=With[{nn=2000}, Complement[Range[nn], Prime[Range[PrimePi[ nn]]]]]}, Select[ #[[1]]+#[[3]]&/@Partition[nps, 3, 1], PrimeQ]] (* Harvey P. Dale, Dec 12 2021 *)
PROG
(Magma) m:=1500; NonPrime:=[i: i in [0..m] | not IsPrime(i)]; [q: n in [2..#NonPrime-1] | IsPrime(q) where q is NonPrime[n-1]+NonPrime[n+1]];
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Ilya Lopatin and Juri-Stepan Gerasimov, Apr 08 2014
EXTENSIONS
Edited by Wolfdieter Lang, Apr 11 2014
STATUS
approved