|
%I #8 Jan 14 2016 17:53:42
%S 5,2,7,4,4,1,6,3,0,0,5,1,3,5,5,7,1,3,5,5,7,1,3,2,2,4,6,0,2,2,4,6,0,2,
%T 2,4,3,5,7,7,1,3,5,7,7,1,3,5,4,4,6,0,2,4,4,6,0,2,4,4,6,5,7,1,1,3,5,7,
%U 1,1,3,5,7,6,6,0,2,4,6,6,0,2,4,6,6,0,7,1,3,3,5,7,1,3,3,5,7,1,0,0,2,4,6,0,0
%N 8*n digit-reversed mod 8.
%t Table[Mod[IntegerReverse[8*n],8],{n,2,110}] (* The program uses the IntegerReverse function from Mathematica version 10 *) (* _Harvey P. Dale_, Jan 14 2016 *)
%Y Cf. A084052, A084053, A084054, A084055, A084339, A084341.
%K base,easy,nonn
%O 2,1
%A _Amarnath Murthy_ and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 26 2003
%E More terms from _Ray Chandler_, May 27 2003
|
