|
%I #13 Nov 17 2015 18:56:16
%S 4,5,7,8,10,13,17,20,22,25,28,32,35,38,43,50,52,53,55,67,77,80,85,88,
%T 97,98,113,115,118,127,130,133,137,140,155,157,167,175,178,185,188,
%U 193,218,223,230,232,253,272,280,283,287,295,298,302,305,308,322,325,328,340
%N a(n) = A087695(n)/2.
%C A260689(a(n),1) = A264526(a(n)) = 3. - _Reinhard Zumkeller_, Nov 17 2015
%H Reinhard Zumkeller, <a href="/A088763/b088763.txt">Table of n, a(n) for n = 1..10000</a>
%p 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
%t 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 *)
%o (Haskell)
%o a088763 = flip div 2 . a087695 -- _Reinhard Zumkeller_, Nov 17 2015
%Y Cf. A087695, A040040, A088765, A088767, A088769.
%Y Cf. A260689, A264526.
%K nonn
%O 1,1
%A _Ray Chandler_, Oct 26 2003
%E Offset corrected by _Reinhard Zumkeller_, Nov 17 2015
|
