OFFSET
1,1
COMMENTS
EXAMPLE
MATHEMATICA
oreQ[n_] := IntegerQ[n*DivisorSigma[0, n]/DivisorSigma[1, n]];
ntdNotOreQ[n_] := NoneTrue[Most[Rest[Divisors[n]]], oreQ[#] &];
a001599 = Cases[Import["https://oeis.org/A001599/b001599.txt", "Table"],
{_, _}][[All, 2]];
Select[Rest[a001599], ntdNotOreQ[#] &]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Ivan N. Ianakiev, Mar 02 2024
STATUS
approved