OFFSET
0,6
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..15625
FORMULA
G.f.: Product_{k>=0} (1-x^(7*5^k))/(1-x^(5^k)).
G.f. A(x) satisfies: A(x) = (1 + x + x^2 + x^3 + x^4 + x^5 + x^6) * A(x^5). - Ilya Gutkovskiy, Jul 09 2019
EXAMPLE
a(26) = 3 because 26=25+1=5+5+5+5+5+1=5+5+5+5+1+1+1+1+1+1.
MAPLE
b:= proc(n, i) option remember; `if`(n=0, 1, `if`(i<0, 0,
add(b(n-j*5^i, i-1), j=0..min(6, n/5^i))))
end:
a:= n-> b(n, ilog[5](n)):
seq(a(n), n=0..120); # Alois P. Heinz, May 01 2018
MATHEMATICA
m = 100; A[_] = 1;
Do[A[x_] = Total[x^Range[0, 6]] A[x^5] + O[x]^m // Normal, {m}];
CoefficientList[A[x], x] (* Jean-François Alcover, Oct 19 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, May 01 2018
STATUS
approved