OFFSET
1,1
REFERENCES
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..438
FORMULA
E.g.f.: log(1 + Sum_{k>=1} prime(k)*x^k/k!). - Ilya Gutkovskiy, Mar 10 2018
MAPLE
a:= proc(n) option remember; (t-> `if`(n=0, 0, t(n) -add(j*
binomial(n, j)*t(n-j)*a(j), j=1..n-1)/n))(i->ithprime(i))
end:
seq(a(n), n=1..25); # Alois P. Heinz, Mar 06 2018
MATHEMATICA
a[n_] := a[n] = Function[t, If[n==0, 0, t[n] - Sum[j Binomial[n, j] t[n-j] a[j], {j, 1, n-1}]/n]][Prime];
Array[a, 25] (* Jean-François Alcover, Oct 30 2020, after Alois P. Heinz *)
CROSSREFS
KEYWORD
sign
AUTHOR
EXTENSIONS
Signs from Christian G. Bower, Nov 15 1998
STATUS
approved