A239629 Factored over the Gaussian integers, the least positive number having n prime factors, including units -1, i, and -i.
1, 2, 5, 10, 30, 130, 390, 2730, 13260, 64090, 192270, 1345890, 7113990, 49797930, 291673590, 2041715130
Offset: 1
Crossrefs
Programs
-
Mathematica
nn = 12; t = Table[0, {nn}]; n = 0; found = 0; While[found < nn, n++; cnt = Length[FactorInteger[n, GaussianIntegers -> True]]; If[cnt <= nn && t[[cnt]] == 0, t[[cnt]] = n; found++]]; t
Extensions
a(14)-a(16) from Amiram Eldar, Jun 27 2020
Comments