A144624 a(n) = A078823(n) - n.

0, 0, 1, 1, 3, 3, 6, 4, 7, 7, 8, 11, 16, 17, 19, 11, 15, 15, 16, 19, 22, 18, 28, 29, 36, 37, 40, 41, 49, 51, 48, 26, 31, 31, 32, 35, 34, 39, 44, 45, 50, 51, 39, 53, 66, 63, 72, 67, 76, 77, 80, 81, 90, 87, 90, 98, 109, 111, 116, 118, 122, 125, 109, 57, 63, 63, 64, 67, 66, 71, 76

Offset: 0

Author

N. J. A. Sloane, Jan 18 2009

Keywords

• nonn

Comments

Sum of all distinct binary numbers contained as proper substrings in the binary representation of n.

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 0..10000

Programs

Haskell

a144624 n = a078823 n - fromIntegral n -- Reinhard Zumkeller, Aug 14 2013

Extensions

Extended by Ray Chandler, Mar 13 2010