|
| |
|
|
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; 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
| 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: A189757 A094065 A073593 * A071113 A071704 A094019
Adjacent sequences: A088944 A088945 A088946 * A088948 A088949 A088950
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Oct 29 2003
|
|
|
EXTENSIONS
| More terms from Robert G. Wilson v (rgwv(AT)rgwv.com) and Chuck Seggelin (chuck(AT)plastereddragon.com), Nov 14 2003
Edited by Charles R Greathouse IV (charles.greathouse(AT)case.edu), Apr 24 2010
|
| |
|
|
