OFFSET
0,5
COMMENTS
Starting at n=1, appears to be row sums of triangle A157424. - Gary W. Adamson & Mats Granvik, Feb 28 2009
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..5437 (first 501 terms from T. D. Noe)
FORMULA
G.f.: 1/( 1 - (Sum_{m nonprime} x^m) ).
EXAMPLE
a(6) = 5 because 1+1+1+1+1+1 = 1+1+4 = 1+4+1 = 4+1+1 = 6.
MAPLE
a:= proc(n) option remember; `if`(n=0, 1, add(
`if`(isprime(j), 0, a(n-j)), j=1..n))
end:
seq(a(n), n=0..45); # Alois P. Heinz, Aug 06 2019
MATHEMATICA
nn=50; np=Select[Range[nn], !PrimeQ[ # ] &]; CoefficientList[Series[1/(1-Sum[x^k, {k, np}]), {x, 0, nn}], x] (* T. D. Noe, Aug 20 2010 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, May 16 2002
EXTENSIONS
Definition and g.f. corrected by N. J. A. Sloane, Aug 19 2010, who thanks Vladimir Kruchinin for pointing out the errors.
STATUS
approved