%I #6 Nov 17 2018 21:55:44
%S 2,4,5,6,10,8,16,12,17,20,21,20,35,30,20,20,19,26,22,40,41,32,40,36,
%T 50,48,53,44,54,50,141,52,44,36,55,44,1035,90,77,60,101,62,47,76,80,
%U 88,97,68,145,100,53,148,146,80,65,76,60,108,103,80,107,102,108,104,115,98
%N Smallest k such that the concatenation of natural numbers from (n+1) to k is a multiple of n.
%t Do[k = n + 1; s = ToString[k]; While[Mod[ToExpression[s], n] > 0, k++; s = s <> ToString[k]]; Print[k], {n, 1, 100}] (* _Ryan Propper_, Oct 10 2005 *)
%Y Cf. A077310, A077311.
%K base,nonn
%O 1,1
%A _Amarnath Murthy_, Nov 03 2002
%E More terms from _Ryan Propper_, Oct 10 2005
|