A105328 Digital expansion of e*Pi: numbers from each pair of successive digits.
85, 39, 73, 42, 22, 67, 35, 67, 6, 54, 63, 55, 8, 69, 54, 65, 74, 49, 50, 34, 88, 85, 35, 76, 51, 14, 96, 18, 79, 60, 11, 30, 17, 92, 28, 61, 11, 57, 33, 8, 7, 57, 25, 63, 86, 97, 10, 47, 39, 43, 91, 37, 74, 94, 25, 11, 67, 74, 67, 64, 63, 21, 18, 75, 90, 69, 60, 23, 99, 6, 18, 36
Offset: 1
Programs
-
Mathematica
Table[FromDigits[Partition[RealDigits[N[e*Pi, 200]][[1]], 2][[i]]], {i, 100}]