OFFSET
0,3
EXAMPLE
For n = 6 we have:
--------------------------------------
. Number of
Partitions noncomposite
of 6 parts
--------------------------------------
6 .......................... 0
3 + 3 ...................... 2
4 + 2 ...................... 1
2 + 2 + 2 .................. 3
5 + 1 ...................... 2
3 + 2 + 1 .................. 3
4 + 1 + 1 .................. 2
2 + 2 + 1 + 1 .............. 4
3 + 1 + 1 + 1 .............. 4
2 + 1 + 1 + 1 + 1 .......... 5
1 + 1 + 1 + 1 + 1 + 1 ...... 6
------------------------------------
Total ..................... 32
So a(6) = 32.
MAPLE
b:= proc(n, i) option remember; `if`(n=0 or i=1, [1, n], b(n, i-1)+
(p-> p+[0, `if`(isprime(i), p[1], 0)])(b(n-i, min(n-i, i))))
end:
a:= n-> b(n$2)[2]:
seq(a(n), n=0..50); # Alois P. Heinz, Aug 13 2019
MATHEMATICA
b[n_] := Sum[PrimeNu[k] PartitionsP[n-k], {k, 1, n}];
c[n_] := SeriesCoefficient[Product[1/(1-x^k), {k, 1, n}]/(1-x), {x, 0, n}];
a[n_] := b[n] + c[n-1];
a /@ Range[0, 50] (* Jean-François Alcover, Nov 15 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Omar E. Pol, Aug 08 2019
STATUS
approved