A281092 Position of the first occurrence of n in the decimal expansion of e.
13, 2, 0, 17, 10, 11, 20, 1, 3, 12, 195, 200, 370, 27, 223, 201, 94, 88, 2, 108, 111, 87, 252, 16, 33, 92, 30, 0, 4, 131, 71, 189, 110, 142, 143, 17, 19, 270, 85, 106, 66, 124, 97, 134, 239, 10, 103, 25, 228, 34, 235, 93, 15, 18, 76, 301, 153, 38, 325, 11, 20, 242, 32
Offset: 0
Programs
-
Mathematica
With[{ed=RealDigits[E,10,500][[1]]},Flatten[Table[SequencePosition[ ed, IntegerDigits[n],1][[All,1]],{n,0,65}]]]-1 (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 06 2017 *)
Comments