OFFSET
0,8
COMMENTS
As in A025426, the two squares do not need to be distinct.
FORMULA
a(n) = Sum_{primes p} A025426(n-p).
EXAMPLE
a(7) = 2 counts 7 = 5 + 1^2 + 1^2 = 2 + 1^2 + 2^2.
MAPLE
MATHEMATICA
p2sQ[{a_, b_, c_}]:=PrimeQ[a]&&AllTrue[{Sqrt[b], Sqrt[c]}, IntegerQ]||PrimeQ[b] && AllTrue[{Sqrt[c], Sqrt[a]}, IntegerQ]||PrimeQ[c]&&AllTrue[{Sqrt[b], Sqrt[a]}, IntegerQ]; Table[Count[IntegerPartitions[n, {3}], _?(p2sQ[#]&)], {n, 0, 80}] (* Harvey P. Dale, Mar 10 2023 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
R. J. Mathar, Michel Marcus, Aug 04 2018
STATUS
approved