A097876 Number of ways to partition n into sums of squares of nonprimes.

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, 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, 9, 9, 10, 10, 10, 10, 10, 10, 10, 10, 12, 13, 13, 13, 14, 14, 14, 14, 15, 15, 15, 15, 15, 15

Offset

0,17

Links

Table of n, a(n) for n=0..93.

Example

a(36)=4 because 36={36 ones}, {16 ones, 16}, {7 ones, 25} & {16, 16}.

Mathematica

nonprime[n_] := FixedPoint[n + PrimePi[ # ] &, n + PrimePi[n]]; CoefficientList[ Series[ Product[1/(1 - x^nonprime[i]^2), {i, 111}], {x, 0, 101}], x]

Crossrefs

Cf. A090677.

Sequence in context: A287866 A071841 A355478 * A177830 A111859 A156822

Adjacent sequences: A097873 A097874 A097875 * A097877 A097878 A097879

Keyword

nonn

Author

Robert G. Wilson v, Sep 21 2004

Status

approved