OFFSET
1,4
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..10000
N. J. A. Sloane, Transforms
MAPLE
shadow:= proc(p) proc(n) add(`if`(modp(p(j), n)=0, 1, 0), j=0..n-1) end end:
f:= proc(k) proc(n) binomial(n+k-1, k) end end:
a:= shadow(f(6)):
seq(a(n), n=1..100);
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Sep 23 2008
STATUS
approved