|
| |
|
|
A107895
|
|
Euler transform of n!.
|
|
4
| |
|
|
1, 1, 3, 9, 36, 168, 961, 6403, 49302, 430190, 4199279, 45326013, 535867338, 6884000262, 95453970483, 1420538043009, 22579098396600, 381704267100888, 6837775526561031, 129377310771795789, 2578101967764973314
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
MAPLE
| EulerTrans := proc(p) local b; b := proc(n) option remember; local d, j;
`if`(n=0, 1, add(add(d*p(d), d=numtheory[divisors](j)) *b(n-j), j=1..n)/n) end end:
A107895 := EulerTrans(n->n!): seq(A107895(n), n=0..20);
# After A. P. Heinz, A000335. [Peter Luschny, Jul 07 2011]
|
|
|
CROSSREFS
| Cf. A077365, A107894, A179327.
Sequence in context: A156016 A032314 A144352 * A070960 A030834 A030893
Adjacent sequences: A107892 A107893 A107894 * A107896 A107897 A107898
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Thomas Wieder (wieder.thomas(AT)t-online.de), May 26 2005
|
| |
|
|
