A228088 Numbers n for which there is a unique k which satisfies n = k + wt(k), where wt(k) (A000120) gives the number of 1's in binary representation of nonnegative integer k.
0, 2, 3, 7, 8, 9, 10, 11, 12, 16, 20, 24, 25, 26, 27, 28, 29, 34, 35, 40, 41, 42, 43, 44, 45, 49, 53, 57, 58, 59, 60, 61, 62, 65, 66, 68, 69, 72, 73, 74, 75, 76, 77, 81, 85, 89, 90, 91, 92, 93, 94, 99, 100, 105, 106, 107, 108, 109, 110, 114, 118, 122, 123, 124
Offset: 1
Examples
0 is in this sequence because there is a unique k such that k+A000120(k)=0, in this case k=0. 1 is not in this sequence because there is no such k that k+A000120(k) would be 1. (Instead 1 is in A010061). 2 is in this sequence because there is exactly one k that satisfies k+A000120(k)=2, namely k=1. 3 is in this sequence because there is exactly one k that satisfies k+A000120(k)=3, namely k=2. 4 is not in this sequence because there is no such k that k+A000120(k) would be 4. (Instead 4 is in A010061.) 5 is not in this sequence because there is more than one k that satisfies k+A000120(k)=5, namely k=3 and k=4.
Links
Crossrefs
Programs
-
Haskell
a228088 n = a228088_list !! (n-1) a228088_list = 0 : filter ((== 1) . a228085) [1..] -- Reinhard Zumkeller, Oct 13 2013
-
Maple
For Maple code see A230091. - N. J. A. Sloane, Oct 10 2013
Comments