OFFSET
1,9
COMMENTS
LINKS
Zhi-Wei Sun, Table of n, a(n) for n = 1..10000
EXAMPLE
a(8) = 1 since 2*8 = 5 + 11 with 5, 11, prime(5) - 5 + 1 = 7 and prime(11) + 11 + 1 = 43 all prime.
MATHEMATICA
p[n_]:=PrimeQ[n]&&PrimeQ[Prime[n]-n+1]
q[n_]:=PrimeQ[n]&&PrimeQ[Prime[n]+n+1]
a[n_]:=Sum[If[p[k]&&q[2n-k], 1, 0], {k, 1, 2n-1}]
Table[a[n], {n, 1, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Zhi-Wei Sun, Jan 05 2014
STATUS
proposed