OFFSET
1,8
COMMENTS
For n>7 a(n)>0.
LINKS
Zak Seidov, Table of n, a(n) for n = 1..10000
MATHEMATICA
s={}; Do[mx = Prime[k]; c = 0; Do[p = Prime[k]; If[PrimeQ[q = (mx - 3 p)/2] , c++], {k, PrimePi[(mx - 4)/3]}]; AppendTo[s, c], {k, 200}]; s
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Dec 07 2012
STATUS
approved