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

Author

Ray Chandler, Oct 26 2003

Keywords

• nonn

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

Crossrefs

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

Cf. A260689, A264526.

Programs

Haskell

a088763 = flip div 2 . a087695  -- Reinhard Zumkeller, Nov 17 2015

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 *)

Extensions

Offset corrected by Reinhard Zumkeller, Nov 17 2015