|
%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
|
