OFFSET
1,2
COMMENTS
MATHEMATICA
r = 25; s = Join[{0, 1}, Table[Floor[Pi^(n + 1)/(Pi^2 + 1)], {n, 2, r}]]; t = Table[Sum[Binomial[n, k]*s[[k + 1]], {k, n}], {n, 0, r}]; Table[t[[n + 1]] - t[[n]], {n, r}] (* Arkadiusz Wesolowski, Jun 01 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Arkadiusz Wesolowski, Apr 24 2012
STATUS
approved