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

Author

Philippe Deléham, Apr 08 2007

Keywords

• nonn

Links

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

Crossrefs

Cf. A001316, A046092.

Programs

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 *)

Python

def A128806(n): return (1<Chai Wah Wu, Jul 29 2025

Extensions

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