|
%I #13 Aug 12 2018 16:13:24
%S 10,101,1110,10011,101100,110101,111110,1000111,10011000,10101001,
%T 10111010,11001011,11011100,11101101,11111110,100001111,1000110000,
%U 1001010001,1001110010,1010010011,1010110100,1011010101,1011110110,1100010111,1100111000,1101011001,1101111010,1110011011,1110111100
%N Concatenate n and n-1 in binary.
%H Robert Israel, <a href="/A317947/b317947.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A007088(n-1)+10^(1+A000523(n-1))*A007088(n) for n >= 2. - _Robert Israel_, Aug 12 2018
%p f:= proc(n) local A;
%p A:= convert(n-1,binary);
%p 10^length(A)*convert(n,binary)+A
%p end proc:
%p f(1):= 10:
%p map(f, [$1..100]); # _Robert Israel_, Aug 12 2018
%o (PARI) zbinary(n) = if (n, binary(n), [0]);
%o a(n) = fromdigits(concat(zbinary(n), zbinary(n-1))); \\ _Michel Marcus_, Aug 12 2018
%Y Cf. A000523, A007088, A127423 (base 10 version).
%K nonn,base
%O 1,1
%A _N. J. A. Sloane_, Aug 11 2018
%E More terms from _Robert Israel_, Aug 12 2018
|
