OFFSET
1,1
COMMENTS
LINKS
PROG
(PARI)
isA228058(n) = if(!(n%2)||(omega(n)<2), 0, my(f=factor(n), y=0); for(i=1, #f~, if(1==(f[i, 2]%4), if((1==y)||(1!=(f[i, 1]%4)), return(0), y=1), if(f[i, 2]%2, return(0)))); (y));
isA349755(n) = (isA228058(n)&&valuation(sigma(n), 3)==valuation(n, 3));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Dec 02 2021
STATUS
approved