A105325 - OEIS

%I #7 Aug 19 2022 15:27:26

%S 27,18,28,18,28,45,90,45,23,53,60,28,74,71,35,26,62,49,77,57,24,70,93,

%T 69,99,59,57,49,66,96,76,27,72,40,76,63,3,53,54,75,94,57,13,82,17,85,

%U 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

%N Digital expansion of e: numbers from each pair of successive digits.

%t Table[FromDigits[Partition[RealDigits[N[E, 200]][[1]], 2][[i]]], {i, 100}]

%t FromDigits/@Partition[RealDigits[E,10,250][[1]],2] (* _Harvey P. Dale_, Aug 19 2022 *)

%K nonn,base

%O 1,1

%A _Zak Seidov_, Apr 30 2005

%E First Mathematica program corrected by _Harvey P. Dale_, Aug 19 2022