login
A088763
a(n) = A087695(n)/2.
7
4, 5, 7, 8, 10, 13, 17, 20, 22, 25, 28, 32, 35, 38, 43, 50, 52, 53, 55, 67, 77, 80, 85, 88, 97, 98, 113, 115, 118, 127, 130, 133, 137, 140, 155, 157, 167, 175, 178, 185, 188, 193, 218, 223, 230, 232, 253, 272, 280, 283, 287, 295, 298, 302, 305, 308, 322, 325, 328, 340
OFFSET
1,1
COMMENTS
A260689(a(n),1) = A264526(a(n)) = 3. - Reinhard Zumkeller, Nov 17 2015
LINKS
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