|
|
A075015
|
|
Smallest k such that the concatenation k, k+1, k+2 is divisible by n; or 0 if no such number exists.
|
|
1
|
|
|
1, 2, 1, 4, 3, 2, 5, 4, 2, 8, 8, 4, 2, 104, 3, 18, 17, 2, 4, 18, 5, 8, 3, 4, 23, 2, 5, 118, 37, 8, 39, 18, 8, 34, 118, 14, 110, 4, 2, 18, 1, 104, 47, 10, 8, 32, 49, 18, 104, 48, 17, 142, 48, 8, 8, 118, 4, 66, 21, 18, 48, 70, 5, 50
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
EXAMPLE
|
a(13) = 2 as 13 divides 234.
|
|
MATHEMATICA
|
Table[Module[{k=1}, While[!Divisible[FromDigits[Flatten[ IntegerDigits/@ Range[k, k+2]]], n], k++]; k], {n, 70}] (* Harvey P. Dale, May 10 2012 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Corrected and extended by Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Apr 19 2003
|
|
STATUS
|
approved
|
|
|
|