|
|
A305754
|
|
Inverse Euler transform of n^n.
|
|
2
|
|
|
1, 3, 23, 223, 2800, 42576, 763220, 15734388, 366715248, 9533817400, 273549419552, 8586984241870, 292755986184548, 10772849583399474, 425587711650564816, 17966217346985801150, 807152054953801845760, 38451365602113352159320, 1936082850634342992601636
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
Product_{k>=1} 1/(1-x^k)^{a(k)} = Sum_{n>=0} (n * x)^n.
|
|
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):
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|