A079822 Smallest n-digit multiple of the n-th composite number.
4, 12, 104, 1008, 10000, 100008, 1000006, 10000005, 100000000, 1000000008, 10000000000, 100000000002, 1000000000010, 10000000000008, 100000000000000, 1000000000000014, 10000000000000017
Offset: 1
Crossrefs
Cf. A079821.
Programs
-
Mathematica
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 *)
Extensions
More terms from Erich Friedman, Aug 08 2005