OFFSET
0,6
LINKS
EXAMPLE
a(10) = 5 because we have [7, 3], [4, 3, 3], [3, 7], [3, 4, 3] and [3, 3, 4].
MAPLE
a:= proc(m) option remember; local b; b:= proc(n) option
remember; `if`(n=0, 1, add(`if`(nops(ifactors(j)[2])
<>1 or irem(m, j)=0, 0, b(n-j)), j=2..n)) end; b(m)
end:
seq(a(n), n=0..70); # Alois P. Heinz, Mar 11 2018
MATHEMATICA
Table[SeriesCoefficient[1/(1 - Sum[Boole[Mod[n, k] != 0 && PrimePowerQ[k]] x^k, {k, 1, n}]), {x, 0, n}], {n, 0, 48}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Mar 11 2018
STATUS
approved