OFFSET
1
LINKS
FORMULA
a(n) = [A374196(n) == 1], where [ ] is the Iverson bracket.
PROG
(PARI) A374197(n) = { my(m=0, x); fordiv(n, d, if(d>1, x = denominator(sigma(d)/d); if(!m || x<m, m=x))); (!m || (1==m)); };
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jul 07 2024
STATUS
approved