OFFSET
1,2
COMMENTS
The records are 1, 2, 3, 4, 5, 7, 9, 11, 12, 13, 15, 16, 18, 19, 21, 24, 29, 30, 34, 37, 39, 44, 51, 52, 58, 61, 62, 65, 70, ... (see the link for more values).
Numbers that set a record for the number of divisors of least prime signature (A322584). - Hal M. Switkay, Aug 20 2024
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..533
Amiram Eldar, Table of n, a(n), A085082(a(n)) for n = 1..533
MATHEMATICA
ps[1] = {}; ps[n_] := FactorInteger[n][[All, 2]] // Sort; a[n_] := ps /@ Divisors[n] // Union // Length; s={}; am=0; Do[a1=a[n]; If[a1>am, am=a1; AppendTo[s, n]], {n, 1, 2*10^6}]; s (* after Jean-François Alcover at A085082 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Feb 19 2019
STATUS
approved