%I A097876
%S A097876 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,3,3,
%T A097876 3,4,4,4,4,4,4,4,4,4,4,4,4,5,5,5,5,6,6,6,6,6,6,6,6,6,6,6,6,8,8,8,8,9,9,
%U A097876 9,9,10,10,10,10,10,10,10,10,12,13,13,13,14,14,14,14,15,15,15,15,15,15
%N A097876 Number of ways to partition n into sums of squares of nonprimes.
%e A097876 a(36)=4 because 36={36 ones}, {16 ones, 16}, {7 ones, 25} & {16, 16}.
%t A097876 nonprime[n_] := FixedPoint[n + PrimePi[ # ] &, n + PrimePi[n]]; CoefficientList[ 
               Series[ Product[1/(1 - x^nonprime[i]^2), {i, 111}], {x, 0, 101}], 
               x]
%Y A097876 Cf. A090677.
%Y A097876 Sequence in context: A054900 A046042 A071841 this_sequence A111859 A156822 
               A107609
%Y A097876 Adjacent sequences: A097873 A097874 A097875 this_sequence A097877 A097878 
               A097879
%K A097876 nonn
%O A097876 0,17
%A A097876 Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 21 2004