OFFSET
1,1
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 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Mark Cooke (rm_cooke(AT)yahoo.com), Jul 12 2004
STATUS
approved