A088947 Positions of records in A069862.

1, 2, 5, 7, 10, 13, 25, 27, 31, 37, 151, 277, 385, 451, 902, 6314, 6601, 16627, 24673, 30371, 31451, 32338, 36058, 41173, 44083, 44215, 47322, 52580

Offset

1,2

Comments

A069862 is the smallest k such that n divides the concatenation of numbers from (n+1) to (n+k), where (n+1) is on the most significant side.

Links

Table of n, a(n) for n=1..28.

C. Seggelin, Concatenation of Consecutive Integers.

Example

f(31) = 110 which exceeds f(27) = 26; f(451) = 100270; f(902) = 999100.

Mathematica

f[n_] := Block[{k = n + 1}, d = k; While[ d != 0, k++; d = Mod[d*10^Floor[ Log[10, k] + 1] + k, n]]; k - n]; a = 0; Do[b = f[n]; If[b > a, a = b; Print[n, " = ", b]], {n, 1, 34500}]

Crossrefs

Cf. A069862, A088343 (for records themselves).

Sequence in context: A073593 A364451 A241510 * A288209 A071113 A071704

Adjacent sequences: A088944 A088945 A088946 * A088948 A088949 A088950

Keyword

nonn,base

Author

Robert G. Wilson v, Oct 29 2003

Extensions

More terms from Robert G. Wilson v and Chuck Seggelin (chuck(AT)plastereddragon.com), Nov 14 2003

Edited by Charles R Greathouse IV, Apr 24 2010

Status

approved