OFFSET
1,2
COMMENTS
MATHEMATICA
Select[Range[1378], Mod[#, Floor@ Sqrt@ # + Floor@ Sqrt[#/5]] == 0 &] (* Giovanni Resta, Apr 05 2019 *)
PROG
(PARI) is(n) = n%(floor(sqrt(n)) + floor(sqrt(n/5))) == 0;
CROSSREFS
KEYWORD
nonn
AUTHOR
Jinyuan Wang, Mar 09 2019
STATUS
approved