A138115 Triangle read by rows: row n lists the first n digits of the decimal expansion of e.
2, 2, 7, 2, 7, 1, 2, 7, 1, 8, 2, 7, 1, 8, 2, 2, 7, 1, 8, 2, 8, 2, 7, 1, 8, 2, 8, 1, 2, 7, 1, 8, 2, 8, 1, 8, 2, 7, 1, 8, 2, 8, 1, 8, 2, 2, 7, 1, 8, 2, 8, 1, 8, 2, 8, 2, 7, 1, 8, 2, 8, 1, 8, 2, 8, 4, 2, 7, 1, 8, 2, 8, 1, 8, 2, 8, 4, 5
Offset: 1
Examples
Triangle begins: ..... 2 .... 2,7 ... 2,7,1 .. 2,7,1,8 . 2,7,1,8,2
Programs
-
Mathematica
Module[{nn=20,ed},ed=RealDigits[E,10,nn][[1]];Flatten[Table[Take[ed,n],{n,nn}]]] (* Harvey P. Dale, Dec 24 2014 *)
Comments