|
%I #43 Apr 02 2021 22:26:30
%S 2,2,8,8,2,2,2,2,9,7,7,7,7,7,7,7,7,7,7,2,2,2,2,2,2,2,3,9,9,2,7,4,4,7,
%T 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,9,9,9,9,
%U 9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9
%N First digit to appear n times in the decimal expansion of e.
%C The digits 0 and 5 do not appear among the first 30000 terms. When do they first appear? - _Jianing Song_, Apr 01 2021
%H Alois P. Heinz, <a href="/A195138/b195138.txt">Table of n, a(n) for n = 1..10000</a>
%e From _Michael De Vlieger_, Sep 10 2017: (Start)
%e a(n) is the first decimal digit of e that first appears n times when e is expanded to the -m place:
%e n a(n) m
%e 1 2 0
%e 2 2 4
%e 3 8 7
%e 4 8 9
%e 5 2 22
%e 6 2 30
%e 7 2 33
%e 8 2 40
%e 9 9 58
%e 10 7 63
%e 11 7 64
%e 12 7 68
%e 13 7 78
%e 14 7 83
%e 15 7 89
%e 16 7 99
%e (End)
%t With[{e = First@ RealDigits[N[E, 10^4]]}, Function[t, -1 + Map[FirstPosition[t, #] &, Range@ Max@ t][[All, -1]]]@ Table[BinCounts[Take[e, n], {0, 10, 1}], {n, 10^3}]] (* _Michael De Vlieger_, Sep 10 2017 *)
%Y Cf. A001113, A195844, A277270, A290643, A290644.
%Y Cf. A096567, A195139, A195141, A280811, A341438.
%K nonn,base
%O 1,1
%A _Omar E. Pol_, Oct 22 2011
%E More terms from _D. S. McNeil_, Oct 22 2011
|
