A070843 Largest n-digit number with exactly n distinct prime divisors. There are no further terms.
9, 99, 996, 9996, 99990, 999570, 9999990, 99981420, 999068070, 9592993410
Offset: 1
Examples
a(4) = 9996 with the prime divisors 2,3,7 and 17.
Crossrefs
Cf. A070842.
Programs
-
Mathematica
Do[k = 10^n - 1; While[Length[FactorInteger[k]] != n, k-- ]; Print[k], {n, 1, 10}] (* Ryan Propper, Nov 05 2005 *) lnpd[n_]:=Module[{k=10^n-1},While[PrimeNu[k]!=n,k--];k]; Array[lnpd,10] (* Harvey P. Dale, Sep 30 2021 *)
Extensions
More terms from Rick L. Shepherd, May 14 2002
a(10) from Ryan Propper, Nov 05 2005
Edited by Ray Chandler, Feb 15 2009
Definition clarified by Harvey P. Dale, Sep 30 2021
Comments