login
A352476
Expansion of g.f.: 1/Sum_{p prime} x^p.
2
1, -1, 1, -2, 3, -5, 8, -12, 19, -31, 49, -78, 124, -196, 312, -497, 789, -1254, 1993, -3166, 5033, -8000, 12712, -20202, 32106, -51023, 81090, -128872, 204804, -325483, 517271, -822064, 1306457, -2076267, 3299672, -5243962, 8333895, -13244521, 21048672, -33451302, 53162003
OFFSET
-2,4
FORMULA
a(-2) = 1; a(n) = -Sum_{k=1..n+2} A010051(k+2) * a(n-k).
PROG
(PARI) my(N=40, x='x+O('x^N)); Vec(1/sum(k=1, N, isprime(k)*x^k))
(PARI) a(n) = if(n==-2, 1, -sum(k=1, n+2, isprime(k+2)*a(n-k)));
KEYWORD
sign
AUTHOR
Seiichi Manyama, Mar 17 2022
STATUS
approved