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