OFFSET
1,3
FORMULA
a(n) = A135068(n)/n for n>=1.
MATHEMATICA
f[x_, n_] := (1/n)*(Sum[x^(2^k), {k, 0, n}])^n; Table[Coefficient[f[x, n], x^(2^n + n - 1)] , {n, 1, 10}] (* G. C. Greubel, Sep 22 2016 *)
PROG
(PARI) {a(n)=if(n<1, 0, polcoeff(sum(j=0, n, x^(2^j)+O(x^(2^n+n)))^n, 2^n+n-1)/n)}
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Nov 17 2007
EXTENSIONS
a(15)-a(19) from Alois P. Heinz, Apr 29 2009
a(20)-a(22) from Max Alekseyev, Dec 03 2010
a(23)-a(28) from Max Alekseyev, Aug 31 2024
STATUS
approved