%I #6 Mar 02 2023 13:05:33
%S 2,8,2,8,8,2,8,4,0,4,2,6,0,2,8,4,2,6,6,2,4,2,4,0,6,4,6,6,6,6,2,2,4,0,
%T 6,6,0,4,4,8,2,8,2,6,6,4,2,4,2,4,6,6,2,0,0,0,2,8,4,6,6,2,0,4,2,0,0,4,
%U 2,2,6,0,6,0,8,2,2,8,6,2,4,4,0,6,2,8,2,8,8,0,2,0,0,8,4,8,0,0,2,4,0,8,4,4,8
%N Even digits of e.
%t Select[RealDigits[E,10,250][[1]],EvenQ] (* _Harvey P. Dale_, Mar 02 2023 *)
%o (PARI) evene(n) = { default(realprecision,10000); p = exp(1)/10; s=0; default(realprecision,28); for(x=1,n, d = p*10; d1=floor(d); if(d1%2==0,print1(d1","); s++; ); p = frac(d); ); print(); print(s) }
%K nonn,base
%O 1,1
%A _Cino Hilliard_, Sep 06 2003
|