A239630 Factored over the Gaussian integers, the least number having n prime factors, excluding units 1, -1, i, and -i.
2, 5, 10, 30, 130, 390, 2210, 6630, 46410, 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++; f = FactorInteger[n, GaussianIntegers -> True]; cnt = Length[f]; If[MemberQ[{-1, I, -I}, f[[1, 1]]], cnt--]; If[cnt <= nn && t[[cnt]] == 0, t[[cnt]] = n; found++]]; t
Extensions
a(13)-a(15) from Amiram Eldar, Jun 27 2020
Comments