OFFSET
1,1
MATHEMATICA
Select[Range[1, 1500, 2], Mod[(s = DivisorSigma[1, #]), 4] == 2 && Equal @@ IntegerExponent[{#, s}, 3] &] (* Amiram Eldar, Feb 13 2022 *)
PROG
(PARI) isA351536(n) = if(!(n%2), 0, my(s=sigma(n)); (2 == (s%4)) && (valuation(n, 3) == valuation(s, 3)));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Feb 13 2022
STATUS
approved