|
|
A032320
|
|
Doubles (index 2+) under "EGJ" (unordered, element, labeled) transform.
|
|
1
|
|
|
2, 2, 12, 126, 1800, 33540, 757680, 20149290, 616940520, 21378058800, 827126546400, 35346832387020, 1653593623521840, 84055016334088800, 4613207941230688800, 271883701342581277950, 17125855412989960236600, 1148187688612239672677280, 81635218693106948988998880
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
PROG
|
(PARI) EGJ(v)={Vec(serlaplace(prod(k=1, #v, (1 + x^k/k! + O(x*x^#v))^v[k]))-1, -#v)}
seq(n)={my(v=[2]); for(i=2, n, v=concat(v, EGJ(concat(v, [0]))[i])); v} \\ Andrew Howroyd, Sep 21 2018
(PARI) seq(n)={my(p=(1+x)^2 + O(x*x^n)); for(k=2, n, p*=(1 + x^k/k! + O(x*x^n))^(k!*polcoef(p, k))); Vec(x+serlaplace(p-1)/2)} \\ Andrew Howroyd, Sep 21 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|