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
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Apr 30 2005
EXTENSIONS
First Mathematica program corrected by Harvey P. Dale, Aug 19 2022
STATUS
approved