OFFSET
1,1
LINKS
MATHEMATICA
Select[Range[1, 5000, 2], Divisible[#, 3] && !Divisible[#, 5] && 3*DivisorSigma[1, #^2] >= 5*#^2 &] (* Paolo Xausa, Sep 14 2025 *)
PROG
(PARI) is_A388015(n) = ((n%2) && !(n%3) && (n%5) && ((sigma(n^2)/(n^2))>=(5/3)));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Sep 13 2025
STATUS
approved