Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #7 Jul 31 2015 01:26:05
%S 7,8,5,1,5,3,4,4,5,7,1,0,3,4,1,0,3,3,7,4,5,4,7,2,9,9,9,0,4,5,0,1,4,1,
%T 2,7,3,5,1,6,5,1,9,9,4,5,2,2,0,8,3,0,9,9,8,7,4,7,3,2,3,0,7,1,9,1,4,2,
%U 4,7,5,2,4,6,0,7,7,2,3,3,8,1,5,2,3,5,6,2,1,9,2,2,1,5,8,4,2,6,0,6,2,4,6,3,1
%N a(n) = n-th digit after decimal point in e^n.
%t 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 *)
%K base,easy,nonn
%O 1,1
%A _Amarnath Murthy_, Jul 16 2005
%E More terms from _Robert G. Wilson v_, Jul 18 2005