A180231 Prime partial sums of digits of decimal expansion of e.
2, 29, 37, 47, 79, 103, 173, 191, 257, 269, 331, 491, 523, 547, 547, 547, 641, 673, 677, 701, 701, 739, 751, 797, 823, 853, 881, 907, 907, 919, 977, 977, 1013, 1039, 1051, 1063, 1091, 1093, 1097, 1153, 1163, 1201, 1213, 1237, 1259, 1279, 1373, 1427, 1427, 1433, 1487
Offset: 1
Programs
-
Mathematica
Select[Accumulate[First[RealDigits[N[E,500]]]],PrimeQ] (* Harvey P. Dale, Aug 19 2010 *)
Extensions
More terms from Harvey P. Dale, Aug 19 2010
Further terms from R. J. Mathar, Aug 20 2010