login
A105325
Digital expansion of e: numbers from each pair of successive digits.
1
27, 18, 28, 18, 28, 45, 90, 45, 23, 53, 60, 28, 74, 71, 35, 26, 62, 49, 77, 57, 24, 70, 93, 69, 99, 59, 57, 49, 66, 96, 76, 27, 72, 40, 76, 63, 3, 53, 54, 75, 94, 57, 13, 82, 17, 85, 25, 16, 64, 27, 42, 74, 66, 39, 19, 32, 0, 30, 59, 92, 18, 17, 41, 35, 96, 62, 90, 43, 57, 29, 0
OFFSET
1,1
MATHEMATICA
Table[FromDigits[Partition[RealDigits[N[E, 200]][[1]], 2][[i]]], {i, 100}]
FromDigits/@Partition[RealDigits[E, 10, 250][[1]], 2] (* Harvey P. Dale, Aug 19 2022 *)
CROSSREFS
Sequence in context: A173896 A271450 A169733 * A277270 A040704 A366673
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Apr 30 2005
EXTENSIONS
First Mathematica program corrected by Harvey P. Dale, Aug 19 2022
STATUS
approved