login
Write n in binary and interpret as a decimal number; a(n) is this quantity minus n.
2

%I #32 Sep 08 2022 08:46:05

%S 0,0,8,8,96,96,104,104,992,992,1000,1000,1088,1088,1096,1096,9984,

%T 9984,9992,9992,10080,10080,10088,10088,10976,10976,10984,10984,11072,

%U 11072,11080,11080,99968,99968,99976,99976,100064,100064,100072,100072,100960,100960

%N Write n in binary and interpret as a decimal number; a(n) is this quantity minus n.

%C Difference between decimal and binary numbers written the same.

%H Charles R Greathouse IV, <a href="/A228071/b228071.txt">Table of n, a(n) for n = 0..10000</a>

%F a(n) ~ A007088(n). - _Charles R Greathouse IV_, Aug 09 2013

%F a(2^n + r) = a(2^n) + a(r) for 1 <= r <= 2^n - 1. - _Peter Bala_, Aug 12 2013

%F a(n) = A007088(n) - n. - _Omar E. Pol_, Aug 27 2013

%e 5 in binary is written 101, so a(5) = 101-5 = 96.

%t Table[d = IntegerDigits[n, 2]; FromDigits[d, 10] - n, {n, 50}] (* _T. D. Noe_, Aug 08 2013 *)

%o (PARI) a(n)=subst(Pol(binary(n)),'x,10)-n \\ _Charles R Greathouse IV_, Aug 09 2013

%o (Magma) [Seqint(Intseq((n), 2))-n: n in [0..50]]; // _Vincenzo Librandi_, Feb 20 2016

%Y Cf. A007088, A127906.

%K nonn,base,easy

%O 0,3

%A _André Engels_, Aug 08 2013