A075015 Smallest k such that the concatenation k, k+1, k+2 is divisible by n; or 0 if no such number exists.

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

Offset

1,2

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

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

Cf. A075113, A075114, A075116, A075117.

Sequence in context: A328394 A087850 A087849 * A205558 A082494 A194187

Adjacent sequences: A075012 A075013 A075014 * A075016 A075017 A075018

Keyword

base,nonn

Author

Amarnath Murthy, Sep 01 2002

Extensions

Corrected and extended by Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Apr 19 2003

Status

approved