OFFSET
0,9
COMMENTS
Number of partitions of n into proper prime powers (A246547).
LINKS
Eric Weisstein's World of Mathematics, Prime Power
FORMULA
G.f.: Product_{p prime, k>=2} 1/(1 - x^(p^k)).
EXAMPLE
a(16) = 4 because we have [16], [8, 8], [8, 4, 4] and [4, 4, 4, 4].
MATHEMATICA
nmax = 90; CoefficientList[Series[Product[1/(1 - Sign[PrimeOmega[k] - 1] Floor[1/PrimeNu[k]] x^k), {k, 2, nmax}], {x, 0, nmax}], x]
PROG
(PARI) x='x+O('x^68); Vec(prod(k=2, 67, 1/(1 - sign(bigomega(k) - 1) * (1\omega(k)) * x^k))) \\ Indranil Ghosh, Apr 03 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Jan 06 2017
STATUS
approved