OFFSET
1,1
MATHEMATICA
f[n_] := Block[{rd = RealDigits[E^n, 10, 200]}, rd[[1, rd[[2]] + n]]]; Table[ f[n], {n, 105}] (* Robert G. Wilson v, Jul 18 2005 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Jul 16 2005
EXTENSIONS
More terms from Robert G. Wilson v, Jul 18 2005
STATUS
approved