OFFSET
1
COMMENTS
LINKS
FORMULA
MATHEMATICA
Table[If[CoprimeQ[n, DivisorSigma[0, n]], 1, 0], {n, 120}] (* Harvey P. Dale, Jul 14 2021 *)
PROG
(PARI) A322980(n) = (1==gcd(n, numdiv(n)));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jan 05 2019
STATUS
approved