OFFSET
1
LINKS
PROG
(PARI) A353476(n) = if(2==isprimepower(n), 1, my(f=factor(n)); if(#f~ != 2, 0, (1==f[1, 2] && 1==f[2, 2] && (f[2, 1]) < f[1, 1]^2)));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Apr 22 2022
STATUS
approved