%I #7 Dec 05 2013 19:55:59
%S 4,12,104,1008,10000,100008,1000006,10000005,100000000,1000000008,
%T 10000000000,100000000002,1000000000010,10000000000008,
%U 100000000000000,1000000000000014,10000000000000017
%N Smallest n-digit multiple of the n-th composite number.
%t nm[{a_,b_}]:=Module[{c=Mod[10^(a-1),b]},If[c==0,10^(a-1),10^(a-1)+b-c]]; nm/@ With[{nn=25},Thread[{Range[nn],Rest[Complement[Range[ nn+ PrimePi[nn]+ 1], Prime[Range[PrimePi[nn+1]]]]]}]] (* _Harvey P. Dale_, Feb 14 2012 *)
%Y Cf. A079821.
%K base,nonn
%O 1,1
%A _Amarnath Murthy_, Feb 11 2003
%E More terms from _Erich Friedman_, Aug 08 2005
|