OFFSET
0
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 0..10000
FORMULA
G.f.: Product_{k>=1} (1 + x^(3^k-2^k)). - Ilya Gutkovskiy, Jan 23 2017
MATHEMATICA
nmax = 200; CoefficientList[Series[Product[1 + x^(3^k-2^k), {k, 1, Floor[Log[nmax]/Log[2]] + 1}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Jan 24 2017 *)
PROG
(Haskell)
a241759 = p $ tail a001047_list where
p _ 0 = 1
p (k:ks) m = if m < k then 0 else p ks (m - k) + p ks m
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Apr 28 2014
STATUS
approved