S000175


The digit in the longest run in the decimal form of 5^n; the least one if there are duplicates.

1, 5, 2, 1, 2, 1, 1, 1, 0, 1, 2, 8, 4, 2, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 4, 2, 1, 0, 0, 0, 2, 6, 0, 1, 2, 3, 2, 3, 6, 0, 7, 1, 2, 1, 8, 0, 0, 0, 0, 0, 8, 4, 2, 1, 1, 5, 7, 2, 8, 1, 2, 1, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 4, 1, 2, 0, 5, 3, 3, 2, 1, 1

1

S000175

Sequence S000174 gives the length of the run in 5^n.

T. D. Noe, Plot of 1001 terms

T. D. Noe, Table of 1001 terms

(Mma) t = Table[s = Sort[Split[IntegerDigits[5^n]]]; len = Length[s[[-1]]]; u = Flatten[Select[s, Length[#] == len &, 1]]; {u[[1]], Length[u]}, {n, 0, 100}]; Transpose[t][[1]]

Cf. S000173-S000176.

nonn,base

T. D. Noe, Aug 06 2014

© Tony D Noe 2014-2015