|
|
A307773
|
|
Expansion of e.g.f. Sum_{k>=1} prime(k)*log(1/(1 - x))^k/k!.
|
|
4
|
|
|
2, 5, 18, 82, 454, 2960, 22212, 188568, 1786896, 18698116, 214149822, 2664667358, 35796803068, 516387315172, 7961576156330, 130655542040262, 2273957872532176, 41836619073742452, 811316702293124504, 16540499893106494782, 353673865103189710572, 7914396129656344633522
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
a(n) = Sum_{k=1..n} |Stirling1(n,k)|*prime(k).
|
|
MAPLE
|
a:= n-> add(ithprime(k)*abs(Stirling1(n, k)), k=1..n):
|
|
MATHEMATICA
|
nmax = 22; Rest[CoefficientList[Series[Sum[Prime[k] Log[1/(1 - x)]^k/k!, {k, 1, nmax}], {x, 0, nmax}], x] Range[0, nmax]!]
Table[Sum[Abs[StirlingS1[n, k]] Prime[k], {k, 1, n}], {n, 1, 22}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|