|
|
A088947
|
|
Positions of records in A069862.
|
|
2
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
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
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v and Chuck Seggelin (chuck(AT)plastereddragon.com), Nov 14 2003
|
|
STATUS
|
approved
|
|
|
|