A175186 a(1)=0. For 1<= n <= 2^m, m>=0, a(n+ 2^m) = a(n)+n.

0, 1, 1, 3, 1, 3, 4, 7, 1, 3, 4, 7, 6, 9, 11, 15, 1, 3, 4, 7, 6, 9, 11, 15, 10, 13, 15, 19, 19, 23, 26, 31, 1, 3, 4, 7, 6, 9, 11, 15, 10, 13, 15, 19, 19, 23, 26, 31, 18, 21, 23, 27, 27, 31, 34, 39, 35, 39, 42, 47, 48, 53, 57, 63, 1, 3, 4, 7, 6, 9, 11, 15, 10, 13, 15, 19, 19, 23, 26, 31

Offset: 1

Author

Leroy Quet, Mar 01 2010

Keywords

• easy
• nonn

Comments

a(2^m) = 2^m -1.

Crossrefs

Cf. A083741, A175187.

Programs

Mathematica

f[l_]:=Join[l,l+Range[Length[l]]]; Nest[f,{0},7] (* Ray Chandler, Mar 04 2010 *)

Extensions

Extended by Ray Chandler, Mar 04 2010