A128806 a(n) = A001316(n) + A046092(n).

1, 6, 14, 28, 42, 64, 88, 120, 146, 184, 224, 272, 316, 372, 428, 496, 546, 616, 688, 768, 844, 932, 1020, 1120, 1204, 1308, 1412, 1528, 1632, 1756, 1876, 2016, 2114, 2248, 2384, 2528, 2668, 2820, 2972, 3136, 3284, 3452, 3620, 3800, 3968, 4156, 4340

Offset

0,2

Links

Paolo Xausa, Table of n, a(n) for n = 0..10000

Mathematica

Table[Sum[Mod[Binomial[n, k], 2], {k, 0, n}]+2n(n+1), {n, 0, 46}] (* James C. McMahon, Jan 11 2025 *)
A128806[n_] := 2^DigitSum[n, 2] + 2*n*(n+1); Array[A128806, 100, 0] (* Paolo Xausa, Jul 31 2025 *)

Prog

(Python)
def A128806(n): return (1<<n.bit_count())+(n*(n+1)<<1) # Chai Wah Wu, Jul 29 2025

Crossrefs

Cf. A001316, A046092.

Sequence in context: A063590 A349723 A378230 * A139596 A192035 A345332

Adjacent sequences: A128803 A128804 A128805 * A128807 A128808 A128809

Keyword

nonn

Author

Philippe Deléham, Apr 08 2007

Extensions

a(32)-a(34) corrected by Georg Fischer, Jul 01 2020

Status

approved