|
%I #25 Mar 20 2013 19:37:27
%S 0,127,62,189,28,155,90,217,8,135,70,197,36,163,98,225,-8,119,54,181,
%T 20,147,82,209,0,127,62,189,28,155,90,217,-28,99,34,161,0,127,62,189,
%U -20,107,42,169,8,135,70,197,-36,91,26,153,-8,119,54,181,-28,99
%N The difference between the reversal of an 8-bit integer and the original integer.
%C The difference between the reversal of an 8-bit integer and the original integer.
%H Vincenzo Librandi, <a href="/A217557/b217557.txt">Table of n, a(n) for n = 0..255</a> (all terms of the sequence).
%F a(n) = A160638(n) - n.
%e 5 -> 00000101 -> 10100000 = 160 so a(5) = 155.
%t Table[FromDigits[Reverse[PadLeft[IntegerDigits[n,2],8,0]],2]-n,{n,0,60}] (* _Harvey P. Dale_, Oct 12 2012 *)
%o (PARI) A217557(n)=sum(i=0,7,bittest(n,7-i)<<i)-n \\ - _M. F. Hasler_, Oct 07 2012
%Y Cf. A160638.
%K sign,base,fini,full
%O 0,2
%A _Jon Perry_, Oct 06 2012
|
