OFFSET
0,2
MAPLE
Q:=proc(x, n) options operator, arrow: sum(x^(6^k)+x^(2*6^k)+x^(3*6^k)+x^(4*6^k)+x^(5*6^k), k=0..n) end proc: seq(coeff(Q(x, n)^(n+1), x, 6^n), n=0..6); # Emeric Deutsch, Oct 20 2008
PROG
(PARI) {a(n, q=6)=local(Q=sum(j=0, n, (x^(q^j)-x^(q*q^j))/(1-x^(q^j)+O(x^(q^n+1))))); polcoeff(Q^(n+1), q^n)}
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Paul D. Hanna, Oct 09 2008
EXTENSIONS
a(6) from Emeric Deutsch, Oct 20 2008
a(7)-a(12) from Max Alekseyev, Dec 19 2011
STATUS
approved