OFFSET
1,1
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
gpf[n_] := FactorInteger[n][[-1, 1]]; Select[Range[300], gpf[DivisorSigma[0, #]] == 3 &]
PROG
(PARI) gpf(n) = if(n == 1, 1, vecmax(factor(n)[, 1]));
is(n) = gpf(numdiv(n)) == 3;
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Amiram Eldar, Jan 16 2024
STATUS
approved