A081601 Numbers m such that 3 does not divide Sum_{k=0..m} binomial(2k,k) = A006134(m).
0, 3, 9, 12, 27, 30, 36, 39, 81, 84, 90, 93, 108, 111, 117, 120, 243, 246, 252, 255, 270, 273, 279, 282, 324, 327, 333, 336, 351, 354, 360, 363, 729, 732, 738, 741, 756, 759, 765, 768, 810, 813, 819, 822, 837, 840, 846, 849, 972, 975, 981, 984, 999, 1002, 1008, 1011
Offset: 1
Examples
For n=0, A006134(0) = 1, hence 0 is a term.
Links
- Ralf Stephan, Some divide-and-conquer sequences ...
- Ralf Stephan, Table of generating functions
Programs
-
Mathematica
Select[Range[0, 1020], Mod[Sum[Binomial[2 k, k], {k, 0, #}], 3] != 0 &] (* Michael De Vlieger, Nov 28 2015 *)
-
PARI
for(n=0, 1e3, if(sum(k=0, n, binomial(2*k, k)) % 3 > 0, print1(n,", "))) \\ Altug Alkan, Nov 26 2015
Formula
Apparently a(n) = 3*A005836(n).
G.f.: (x/(1 - x))*Sum_{k>=0} 3^(k+1)*x^(2^k)/(1 + x^(2^k)) (conjecture). - Ilya Gutkovskiy, Jul 23 2017
Extensions
Zero prepended to the sequence and formulas modified accordingly by L. Edson Jeffery, Nov 25 2015
Comments