|
%I #7 Nov 03 2015 08:45:51
%S 2,7,2,2,5,5,2,3,5,3,2,7,7,3,5,2,2,7,7,5,7,2,7,3,5,5,7,7,2,7,7,2,7,3,
%T 3,5,3,5,7,5,5,7,3,2,7,5,2,5,2,7,2,7,3,3,2,3,5,2,7,3,5,2,3,5,7,2,3,3,
%U 2,5,2,5,5,3,7,3,3,2,3,2,2,7,3,7,3,2,3,3,2,7,5,3,5,2,5,5,7,3,3,7,3,7,2,5,3
%N Prime digits in the decimal expansion of e.
%e e =2.718281... so we get 2,7,2...
%t Select[RealDigits[E,10,300][[1]],PrimeQ] (* _Harvey P. Dale_, Nov 03 2015 *)
%Y Cf. A001113.
%K easy,nonn,base
%O 0,1
%A Y. Kelly Itakura (yitkr(AT)mta.ca), Aug 22 2002
%E More terms from _Benoit Cloitre_, Aug 27 2002
|
