OFFSET
0,6
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..1000
N. J. A. Sloane, Transforms
FORMULA
a(n) = Sum_{k=4..n} C(n,k)*A066247(k).
EXAMPLE
a(7) = [35,21,7,1]*[1,0,1,0] = 35+7 = 42.
MAPLE
a:= proc(n) local k, s; s:=0; for k from 4 to n do if not isprime(k) then s:= s+ binomial(n, k) fi od; s; end: seq (a(n), n=0..40);
MATHEMATICA
a[n_] := Module[{k, s = 0}, For[k = 4, k <= n, k++, If[!PrimeQ[k], s = s + Binomial[n, k]]]; s]; Table [a[n], {n, 0, 40}] // Flatten (* Jean-François Alcover, Dec 30 2013, translated from Maple *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Sep 05 2008
STATUS
approved