OFFSET
1,1
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 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Feb 11 2003
EXTENSIONS
More terms from Erich Friedman, Aug 08 2005
STATUS
approved