A046445 Smallest composite with n prime factors that are distinct in length.
1, 22, 2222, 2241998, 22435673986, 2243634705621958, 2243641436526074865874, 22436456994448042654162451606, 2243645856500003226552543739737161242, 2243645872205524222052566325604967420160128694
Offset: 0
Programs
-
Mathematica
p = 2; Join[{1}, Table[p = p*Prime[PrimePi[10^n] + 1], {n, 9}]] (* Jayanta Basu, Jun 24 2013 *)
Extensions
Corrected by Jayanta Basu, Jun 24 2013