OFFSET
1,2
COMMENTS
The corresponding numbers of divisors are 1, 2, 4, 6, 8, 12, 16, 24, 32, ... .
This sequence is infinite since there are arithmetic numbers with any number of divisors (see A359965).
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..55
MATHEMATICA
seq[nmax_] := Module[{s = {}, dm = 0, d}, Do[d = DivisorSigma[0, n]; If[d > dm && Divisible[DivisorSigma[1, n], d], dm = d; AppendTo[s, n]], {n, 1, nmax}]; s]; seq[10^6]
PROG
(PARI) lista(nmax) = {my(dm = 0, d); for(n = 1, nmax, d = numdiv(n); if(d > dm && sigma(n)%d == 0, dm = d; print1(n, ", "))); }
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Jan 20 2023
STATUS
approved