OFFSET
1,1
COMMENTS
From Amiram Eldar, Jun 27 2020: (Start)
Indices of records of A086275.
Also, numbers with a record number of unitary divisors in Gaussian integers (A332476). (End)
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
CROSSREFS
KEYWORD
nonn,more
AUTHOR
T. D. Noe, Mar 31 2014
EXTENSIONS
a(13)-a(15) from Amiram Eldar, Jun 27 2020
STATUS
approved