A230058 Numbers of the form k + wt(k) for at least two distinct k, where wt(k) = A000120(k) is the binary weight of k.

5, 14, 17, 19, 22, 31, 33, 36, 38, 47, 50, 52, 55, 64, 67, 70, 79, 82, 84, 87, 96, 98, 101, 103, 112, 115, 117, 120, 129, 131, 132, 134, 143, 146, 148, 151, 160, 162, 165, 167, 176, 179, 181, 184, 193, 196, 199, 208, 211, 213, 216, 225, 227, 230, 232, 241, 244

Offset: 1

Author

Matthew C. Russell, Oct 07 2013

Keywords

• nonn
• base

Comments

The positions of entries greater than 1 in A228085, or numbers that appear multiple times in A092391.

Numbers that can be expressed as the sum of distinct terms of the form 2^n+1, n=0,1,... in multiple ways.

Examples

			5 = 3 + 2 = 4 + 1, so 5 is in this list.
		

Links

• Vincenzo Librandi and Donovan Johnson, Table of n, a(n) for n = 1..10000 (first 1000 terms from Vincenzo Librandi)
• Index entries for Colombian or self numbers and related sequences

Crossrefs

Cf. A000120, A010061, A228088, A230091, A230092.

Programs

Mathematica

Sort[Transpose[Select[Tally[Table[k + Total[IntegerDigits[k, 2]], {k, 0, 300}]], #[[2]] > 1 &]][[1]]] (* T. D. Noe, Oct 09 2013 *)