OFFSET
1,1
COMMENTS
Incidentally, of the 37 known terms of A228059, all of which are multiples of three, only 15 (less than half) satisfy this condition.
LINKS
MATHEMATICA
Select[Range[1, 463, 2], Divisible[(s = DivisorSigma[1, #]) + #, 3] && IntegerExponent[s, 3] == IntegerExponent[#, 3] &] (* Amiram Eldar, Dec 01 2021 *)
PROG
(PARI) isA349752(n) = ((n%2) && (0==(sigma(n)+n)%3) && valuation(sigma(n), 3)==valuation(n, 3));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Nov 30 2021
STATUS
approved