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,4

Comments

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

Links

Table of n, a(n) for n=1..80.

Mathematica

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

Crossrefs

Cf. A083741, A175187.

Sequence in context: A162932 A216036 A008924 * A021323 A284619 A147549

Adjacent sequences: A175183 A175184 A175185 * A175187 A175188 A175189

Keyword

easy,nonn

Author

Leroy Quet, Mar 01 2010

Extensions

Extended by Ray Chandler, Mar 04 2010

Status

approved