A084340 8*n digit-reversed mod 8.
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, 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, 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
Offset: 2
Programs
-
Mathematica
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 *)
Extensions
More terms from Ray Chandler, May 27 2003