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

Author

Amarnath Murthy, Sep 01 2002

Keywords

• base
• nonn

Examples

			a(13) = 2 as 13 divides 234.
		

Links

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

Crossrefs

Cf. A075113, A075114, A075116, A075117.

Programs

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 *)

Extensions

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