A087075 Multiples of 7 with digits grouped in pairs and leading zeros omitted.
71, 42, 12, 83, 54, 24, 95, 66, 37, 7, 78, 49, 19, 81, 5, 11, 21, 19, 12, 61, 33, 14, 1, 47, 15, 41, 61, 16, 81, 75, 18, 21, 89, 19, 62, 3, 21, 2, 17, 22, 42, 31, 23, 82, 45, 25, 22, 59, 26, 62, 73, 28, 2, 87, 29, 43, 1, 30, 83, 15, 32, 23, 29, 33, 63, 43, 35, 3, 57, 36, 43, 71
Offset: 1
Programs
-
Mathematica
FromDigits /@ Partition[ Flatten[ IntegerDigits[ Table[ 7n, {n, 1, 60}]]], 2] (* Robert G. Wilson v *) (IntegerDigits/@(7 Range[16]))//peek//Flatten//Partition[ #, 2]&// Map[FromDigits, # ]& (* Ken Levasseur *)
Extensions
More terms from Ray Chandler, Oct 20 2003