OFFSET
1,1
COMMENTS
All terms are multiples of 3. Minimal first difference is 6. - Zak Seidov, May 15 2013
LINKS
Marius A. Burtea, Table of n, a(n) for n = 1..10548 (first 1000 terms from Zak Seidov )
Zak Seidov, Table of n, a(n)/3 for n = 1..1000
MATHEMATICA
f[n_]:=PrimeQ[n-2]&&PrimeQ[n+2]; lst={}; Do[If[f[n], AppendTo[lst, n]], {n, 7, 8!, 2}]; lst (* Vladimir Joseph Stephan Orlovsky, Oct 09 2009 *)
Select[Range[9, 1432, 6], PrimeQ[#-2]&&PrimeQ[#+2]&] (* Zak Seidov, May 15 2013 - just for terms in DATA *)
Mean/@Select[Partition[Prime[Range[300]], 2, 1], #[[2]]-#[[1]]==4&] (* Harvey P. Dale, Feb 15 2020 *)
PROG
(Magma) [k:k in [1..1500]| IsPrime(k-2) and NextPrime(k-2) eq k+2 ] // Marius A. Burtea, Jan 24 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved