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, 558304, 659879, 744007, 909634

Offset: 1

Author

Robert G. Wilson v, Oct 29 2003

Keywords

• nonn
• base

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.

Examples

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

Links

• Chuck Seggelin, Concatenation of Consecutive Integers.

Crossrefs

Cf. A069862, A088343 (for records themselves).

Programs

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}]

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

a(29)-a(32) from Michael S. Branicky, Jul 29 2024