OFFSET
1,2
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..386
N. J. A. Sloane, Transforms
FORMULA
Product_{k>=1} 1/(1-x^k)^{a(k)} = Sum_{n>=0} (n * x)^n.
a(n) ~ n^n. - Vaclav Kotesovec, Oct 09 2019
EXAMPLE
(1-x)^(-1) * (1-x^2)^(-3) * (1-x^3)^(-23) * (1-x^4)^(-223) * ... = 1 + x + 4*x^2 + 27*x^3 + 256*x^4 + ... .
MAPLE
# The function EulerInvTransform is defined in A358451.
a := EulerInvTransform(n -> n^n):
seq(a(n), n = 1..19); # Peter Luschny, Nov 21 2022
MATHEMATICA
n = 20; s = {};
For[i = 1, i <= n, i++, AppendTo[s, i*i^i - Sum[s[[d]]*(i-d)^(i-d), {d, i - 1}]]];
Table[Sum[If[Divisible[i, d], MoebiusMu[i/d], 0]*s[[d]], {d, 1, i}]/i, {i, n}] (* Jean-François Alcover, May 10 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Jun 10 2018
STATUS
approved