OFFSET
0,2
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..333
N. J. A. Sloane, Transforms
EXAMPLE
The table of coefficients of x^k in expansion of e.g.f. (Sum_{k>=0} prime(k+1)*x^k/k!)^n begins:
n = 0: (1), 0, 0, 0, 0, 0, ... (A000007)
n = 1: 2, (3), 5, 7, 11, 13, ... (A000040, with offset 0)
n = 2: 4, 12, (38), 118, 362, 1082, ... (A014345)
n = 3: 8, 36, 168, (786), 3660, 16866, ... (A014347)
n = 4: 16, 96, 592, 3680, (22888), 141776, ... (A014352)
n = 5: 32, 240, 1840, 14240, 110560, (857800), ...
MAPLE
b:= proc(n, k) option remember; `if`(k=1, ithprime(n+1), add(
b(j, floor(k/2))*b(n-j, ceil(k/2))*binomial(n, j), j=0..n))
end:
a:= n-> `if`(n=0, 1, b(n$2)):
seq(a(n), n=0..20); # Alois P. Heinz, Mar 10 2018
MATHEMATICA
Table[n! SeriesCoefficient[Sum[Prime[k + 1] x^k/k!, {k, 0, n}]^n, {x, 0, n}], {n, 0, 17}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Mar 10 2018
STATUS
approved