OFFSET
1,5
COMMENTS
a(38) = 0.
Conjecture: except m = 77, all odd numbers > 9 are of the form m = p + 4*q where p and q are prime numbers.
LINKS
Michel Lagneau, Table of n, a(n) for n = 1..10000
MAPLE
for n from 11 by 2 to 200 do:jj:=0:for j from 1 to 1000 while (jj=0) do:p:=ithprime(j):q:=(n-p)/4:if q> 0 and type(q, prime)=true then jj:=1:printf(`%d, `, p):else fi:od:if jj=0 then printf(`%d, `, 0):else fi:od:
MATHEMATICA
Table[m=3; While[!(PrimeQ[m]&&(((2*n+1-m)/4)>1)&&PrimeQ[(2*n+1-m)/4]), m=m+2]; Print[n, " ", m], {n, 5, 200}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Lagneau, Apr 12 2013
STATUS
approved