|
%I #23 Jul 28 2023 04:08:30
%S 1,10,11,101,111,1010,1100,1110,10001,10011,10110,11001,11100,11111,
%T 100100,100110,101001,101100,101111,110100,110111,111100,1000000,
%U 1000001,1000011,1000110,1001001,1001100,1001111,1010100,1010111,1011100,1100000,1100010,1100101,1101001,1101101,1110010,1110110,1111011,10000001,10000011
%N a(n) = A010062(n) written in binary: a(n+1) = a(n) + hammingweight(a(n)) in binary.
%C Is there any way to tell by looking at a binary number whether or not it is a term of this sequence?
%H N. J. A. Sloane, <a href="/A230297/b230297.txt">Table of n, a(n) for n = 0..10000</a>
%H <a href="/index/Coi#Colombian">Index entries for Colombian or self numbers and related sequences</a>.
%F a(n) = A157845(n+1) = A007088(A010062(n)) = A007088(A092391(A028897(a(n-1)))). - _M. F. Hasler_, Nov 18 2019
%t s[0] = 1; s[n_] := s[n] = s[n-1] + DigitCount[s[n-1], 2, 1]; Table[FromDigits[IntegerDigits[s[n], 2]], {n, 0, 50}] (* _Amiram Eldar_, Jul 28 2023 *)
%o (PARI) (A230297(n)=A007088(A010062(n))); A230297_vec(N)={vector(N,i, if(i>1, A007088(N+=hammingweight(N)), N=1))} \\ _M. F. Hasler_, Nov 18 2019
%Y Cf. A010062.
%Y Essentially the same as A157845.
%Y Cf. A004207 (base-10 analog); A007088 (n in binary), A010062 (this written in base 10), A000120 (Hammingweight), A092391 (A000120(n) + n), A028897 (convert binary to decimal).
%K nonn,base
%O 0,2
%A _N. J. A. Sloane_, Oct 17 2013
|
