A083097 a(n) = A083096(n)/6.
0, 2, 5, 6, 14, 15, 18, 20, 41, 42, 45, 47, 54, 56, 59, 60, 122, 123, 126, 128, 135, 137, 140, 141, 162, 164, 167, 168, 176, 177, 180, 182, 365, 366, 369, 371, 378, 380, 383, 384, 405, 407, 410, 411, 419, 420, 423, 425, 486, 488, 491, 492, 500
Offset: 1
Links
- Michel Marcus, Table of n, a(n) for n = 1..8192
Programs
-
Mathematica
Join[{0},Position[Accumulate[Table[Binomial[2 j, j], {j, 3000}]], ?(Divisible[#, 3] &)]//Flatten]/6 (* _Paul F. Marrero Romero, Dec 30 2024 *)
Comments