OFFSET
1
LINKS
PROG
(PARI) A373588(n) = if(bigomega(n)%3, 0, my(f = factor(n)); for(i = 1, #f~, if((f[i, 1]%3) != 2, return(0))); (1));
CROSSREFS
Characteristic function of A373589.
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 10 2024
STATUS
approved