OFFSET
1,1
COMMENTS
Intersection of A031924 and its translate by -36.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(3) = 331 is a term because 331 and 331+6 = 337 are consecutive primes and 331+36 = 367 and 331+42 = 373 are consecutive primes.
MAPLE
P:= {seq(ithprime(i), i=1..3000)}:
R:= P intersect map(`-`, P, 6) intersect map(`-`, P, 36) intersect map(`-`, P, 42) minus map(`-`, P, 2) minus map(`-`, P, 4) minus map(`-`, P, 38) minus map(`-`, P, 40):
sort(convert(R, list));
MATHEMATICA
Select[Range[25000], And @@ PrimeQ[(ps = # + {0, 36})] && NextPrime[ps] == ps + {6, 6} &] (* Amiram Eldar, Jan 20 2022 *)
Select[Select[Partition[Prime[Range[3000]], 2, 1], #[[2]]-#[[1]]==6&][[;; , 1]], PrimeQ[#+36]&& NextPrime[ #+36] ==#+42&] (* Harvey P. Dale, Mar 04 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, Jan 19 2022
STATUS
approved