OFFSET
0,6
COMMENTS
This is the 2-adic valuation of A000930.
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..5000
MATHEMATICA
A000930[n_] := Sum[Binomial[n - 2*i, i], {i, 0, Floor[n/3]}];
Table[IntegerExponent[A000930[n], 2], {n, 0, 100}] (* G. C. Greubel, Apr 26 2017 *)
PROG
(Magma) A000930:=func<i | &+[Binomial(i-2*k, k): k in [0..i div 3]]>; [Valuation(A000930(n), 2): n in [0..120]]; // Bruno Berselli, Aug 05 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Aug 04 2013
STATUS
approved