A095935 First prime of length n encountered in the decimal representation of e.
2, 71, 271, 4523, 74713, 904523, 2718281, 72407663, 360287471, 7427466391, 75724709369, 749669676277, 8284590452353, 99959574966967, 724709369995957, 2470936999595749, 28459045235360287, 571382178525166427
Offset: 1
Crossrefs
Cf. A007512.
Programs
-
Mathematica
f[n_] := Select[FromDigits /@ Partition[ First[ RealDigits[E, 10, 1000]], n, 1], PrimeQ, 1][[1]]; Array[f, 20] (* Robert G. Wilson v, Nov 14 2011 *)