A151790 Partial sums of A151789.

1, 6, 11, 31, 36, 56, 76, 156, 161, 181, 201, 281, 301, 381, 461, 781, 786, 806, 826, 906, 926, 1006, 1086, 1406, 1426, 1506, 1586, 1906, 1986, 2306, 2626, 3906, 3911, 3931, 3951, 4031, 4051, 4131, 4211, 4531, 4551, 4631, 4711, 5031, 5111, 5431, 5751, 7031, 7051

Offset: 1

Author

N. J. A. Sloane, Jun 25 2009

Keywords

• nonn
• changed

Programs

Mathematica

nxt[{n_,a_}]:={n+1,5*4^(Total[IntegerDigits[n,2]]-1)}; Accumulate[NestList[nxt,{1,1},70][[;;,2]]] (* Harvey P. Dale, Aug 23 2025 *)