OFFSET
0,2
COMMENTS
Partial sums of A002095.
Number of partitions of n into nonprime parts if there are two kinds of 1's.
LINKS
MAPLE
b:= proc(n, i) option remember; `if`(n=0 or i=1, n+1,
b(n, i-1)+`if`(isprime(i), 0, b(n-i, min(n-i, i))))
end:
a:= n-> b(n$2):
seq(a(n), n=0..60); # Alois P. Heinz, Apr 28 2018
MATHEMATICA
nmax = 55; CoefficientList[Series[1/(1 - x) Product[(1 - x^Prime[k])/(1 - x^k), {k, 1, nmax}], {x, 0, nmax}], x]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Ilya Gutkovskiy, Apr 28 2018
STATUS
approved