A087406 Multiples of 2 with digits grouped in pairs and leading zeros omitted.
24, 68, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50, 52, 54, 56, 58, 60, 62, 64, 66, 68, 70, 72, 74, 76, 78, 80, 82, 84, 86, 88, 90, 92, 94, 96, 98, 10, 1, 2, 10, 41, 6, 10, 81, 10, 11, 21, 14, 11, 61, 18, 12, 1, 22, 12, 41, 26, 12, 81, 30
Offset: 1
Programs
-
Mathematica
FromDigits /@ Partition[ Flatten[ IntegerDigits[ Table[ 2n, {n, 1, 65}]]], 2] (* Robert G. Wilson v *) FromDigits/@Partition[Flatten[IntegerDigits/@(2*Range[80])],2] (* Harvey P. Dale, Apr 22 2022 *)
Extensions
More terms from Ray Chandler, Oct 20 2003