OFFSET
0
LINKS
FORMULA
PROG
(PARI) A358680(n) = if(n<=1, 1, my(f=factor(n)); 0==((n*sum(i=1, #f~, f[i, 2]/f[i, 1]))%2));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Dec 07 2022
STATUS
approved