A234648 Even sums of 2 consecutive odious numbers (A000069).
6, 24, 30, 40, 54, 72, 86, 96, 102, 120, 126, 136, 150, 160, 166, 184, 198, 216, 222, 232, 246, 264, 278, 288, 294, 312, 326, 344, 350, 360, 374, 384, 390, 408, 414, 424, 438, 456, 470, 480, 486, 504, 510, 520, 534, 544, 550, 568, 582, 600, 606, 616, 630
Offset: 1
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
odQ[n_] := OddQ @ DigitCount[n, 2, 1]; Select[Plus @@@ Partition[Select[ Range[320], odQ], 2, 1], EvenQ] (* Amiram Eldar, Aug 31 2020 *)
Comments