|
%I #6 Nov 01 2019 15:29:35
%S 2,2,2,4,2,2,2,4,4,2,12,4,105,2,2,4,7,4,18,22,2,12,11,4,27,118,4,106,
%T 21,2,23,14,12,34,2,4,112,18,105,22,15,2,39,34,7,14,9,4,141,52,7,118,
%U 58,4,12,106,18,50,38,22,10,54,106,14,157
%N Smallest k such that the concatenation k, k-1,k-2 is divisible by n; or 0 if no such number exists.
%H Harvey P. Dale, <a href="/A075016/b075016.txt">Table of n, a(n) for n = 1..1000</a>
%e a(11) = 12 as 11 divides 121110.
%t skc[n_]:=Module[{k=2},While[Mod[FromDigits[Flatten[IntegerDigits/@ Range[ k,k-2,-1]]],n]!=0,k++];k]; Array[skc,70] (* _Harvey P. Dale_, Nov 01 2019 *)
%Y Cf. A075113, A075114, A075115, A075117.
%K base,nonn
%O 1,1
%A _Amarnath Murthy_, Sep 01 2002
%E More terms from Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Apr 19 2003
|
