OFFSET
0,11
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..5000
FORMULA
G.f.: 1/Product_{k>1} (1-x^prime(k)).
MATHEMATICA
CoefficientList[ Series[ Product[1/(1 - x^Prime[i]), {i, 2, 25}], {x, 0, 70}], x] (* Robert G. Wilson v, Jun 14 2006 *)
PROG
(Haskell)
a099773 = p a065091_list where
p _ 0 = 1
p ks'@(k:ks) m = if m < k then 0 else p ks' (m - k) + p ks m
-- Reinhard Zumkeller, Aug 05 2012
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Vladeta Jovovic, Nov 11 2004
STATUS
approved
