A227835 3^a(n) is the highest power of 3 dividing A000930(n).
0, 0, 0, 0, 1, 0, 1, 2, 0, 0, 0, 0, 1, 0, 1, 3, 0, 0, 0, 0, 2, 0, 2, 3, 0, 0, 0, 0, 1, 0, 1, 2, 0, 0, 0, 0, 1, 0, 1, 3, 0, 0, 0, 0, 2, 0, 2, 3, 0, 0, 0, 0, 1, 0, 1, 2, 0, 0, 0, 0, 1, 0, 1, 4, 0, 0, 0, 0, 3, 0, 3, 4, 0, 0, 0, 0, 1, 0, 1, 2, 0, 0, 0, 0, 1, 0, 1, 3, 0, 0, 0, 0, 2, 0, 2, 3, 0, 0, 0, 0, 1, 0, 1, 2, 0, 0, 0, 0, 1, 0, 1, 3, 0
Offset: 0
Keywords
Links
- G. C. Greubel, Table of n, a(n) for n = 0..5000
Programs
-
Magma
A000930:=func; [Valuation(A000930(n),3): n in [0..120]]; // Bruno Berselli, Aug 05 2013
-
Mathematica
A000930[n_] := Sum[Binomial[n - 2*i, i], {i, 0, Floor[n/3]}]; Table[IntegerExponent[A000930[n], 3], {n, 0, 100}] (* G. C. Greubel, Apr 26 2017 *)
Comments