OFFSET
1,1
COMMENTS
LINKS
PROG
(PARI) is_A392873(n) = if(issquarefree(n), 0, my(f=factor(n), u = n*sum(i=1, #f~, f[i, 2]/f[i, 1]), m=1, p=2); while(u, m *= (p^(u%p)); if(m>n, return(0)); u \= p; p = nextprime(1+p)); (1));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Feb 01 2026
STATUS
approved
