OFFSET
1,1
COMMENTS
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
MAPLE
ZL:=[]:for p from 1 to 700 do if (isprime(p) and isprime(p+6) ) then ZL:=[op(ZL), (p+(p+6))/4]; fi; od; print(ZL); # Zerinvary Lajos, Mar 07 2007
MATHEMATICA
f[n_]:=PrimeQ[n-3]&&PrimeQ[n+3]; lst={}; Do[If[f[n], AppendTo[lst, n]], {n, 2, 8!, 2}]; lst/2 (* Vladimir Joseph Stephan Orlovsky, Oct 09 2009 *)
PROG
(Haskell)
a088763 = flip div 2 . a087695 -- Reinhard Zumkeller, Nov 17 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Ray Chandler, Oct 26 2003
EXTENSIONS
Offset corrected by Reinhard Zumkeller, Nov 17 2015
STATUS
approved