OFFSET
1,7
COMMENTS
Conjecture: a(n) > 0 for all n=1715,1716,....
This conjecture is stronger than the weak Goldbach conjecture. It has been verified for n up to 500,000. Those 0<n<1715 with a(n)=0 are 1, 2, 3, 5, 10, 46, 126, 129, 154, 201, 385, 426, 475, 1714.
LINKS
Zhi-Wei Sun, Table of n, a(n) for n = 1..10000
EXAMPLE
a(7)=2 since 13=3+3+7=3+5+5, and both 3^2+3^2+7^2=67 and 3^2+5^2+5^2=59 are primes.
MATHEMATICA
a[n_]:=a[n]=Sum[If[PrimeQ[n-Prime[j]-Prime[k]]==True&&PrimeQ[Prime[j]^2+Prime[k]^2+(n-Prime[j]-Prime[k])^2]==True, 1, 0], {j, 1, PrimePi[n/3]}, {k, j, PrimePi[(n-Prime[j])/2]}]
Do[Print[n, " ", a[2n-1]], {n, 1, 10000}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Zhi-Wei Sun, Nov 05 2012
STATUS
approved