|
%I #50 Jun 08 2017 16:33:48
%S 2,7,1,8,4,5,9,0,3,6,27,71,18,82,28,81,84,45,59,90,52,23,35,53,36,60,
%T 87,74,47,13,26,66,62,24,49,97,77,75,57,72,70,93,69,99,95,96,67,76,40,
%U 63,30,54,94,38,21,17,78,85,25,51,16,64,42,46,39,91,19
%N Single-digit numbers in the order in which they first appear in the decimal expansion of e, followed by the two-digit numbers in the order in which they appear, then the three-digit numbers, and so on.
%C Note that (except for 0 itself), numbers may not begin with 0. So that when we reach ...459045..., this contributes 90 to the sequence but not "04". - _N. J. A. Sloane_, Feb 08 2017
%H Michael De Vlieger, <a href="/A282171/b282171.txt">Table of n, a(n) for n = 1..10000</a>
%e From _Michael De Vlieger_, Feb 09 2017: (Start)
%e Consider the decimal expansion of e=2.718281828459045235360...
%e The first 4 terms are 2,7,1,8 since these single digits appear in that order above. We do not encounter a different digit till we reach 4,5,9,0, thus these follow the first four in the sequence. We encounter 3 next, and finally 6 and have found all the single digits in the expansion.
%e a(11)=27 because we find the two-digit group "27" first, followed by a(12)=71, etc. until we exhaust the 90 possible two-digit groups that do not start with a zero.
%e a(101)=271 because we find the three-digit group "271" first, followed by a(102)=718, etc. until we exhaust the 900 possible 3-digit groups that do not have leading zeros, etc. (End)
%t e = First@ RealDigits@ N[E, 10^6]; MapIndexed[10^(First@ #2 - 1) - 1 - Boole[First@ #2 == 1] + Flatten@ Values@ KeySort@ PositionIndex@ #1 &, Table[SequencePosition[e, IntegerDigits@ k][[1, 1]], {n, 4}, {k, If[n == 1, 0, 10^(n - 1)], 10^n - 1}]] (* _Michael De Vlieger_, Feb 09 2017, Version 10.1 *)
%Y Cf. A001113, A105177 (analog for Pi), A105178.
%K nonn,base,look
%O 1,1
%A _Bobby Jacobs_, Feb 07 2017
%E Edited by _N. J. A. Sloane_, Feb 08 2017
%E a(5), a(6), a(9), and a(10) inserted by _Bobby Jacobs_, Feb 09 2017
%E More terms from _Michael De Vlieger_, Feb 09 2017
|
