A088763 a(n) = A087695(n)/2.

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

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

Cf. A087695, A040040, A088765, A088767, A088769.

Cf. A260689, A264526.

Sequence in context: A153327 A189707 A120163 * A032722 A293856 A098416

Adjacent sequences: A088760 A088761 A088762 * A088764 A088765 A088766

Keyword

nonn

Author

Ray Chandler, Oct 26 2003

Extensions

Offset corrected by Reinhard Zumkeller, Nov 17 2015

Status

approved