OFFSET
1,2
COMMENTS
Only terms 1, 2, 10, 15, 28, 5005, 22491, 201096 occur among the initial 100000 terms of A392601.
LINKS
PROG
(PARI) is_A392867(n) = if(!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, Jan 27 2026
STATUS
approved
