OFFSET
1,2
COMMENTS
LINKS
MAPLE
filter:= proc(n) local m, np, F, F1, F2, i;
F:= ifactors(n)[2];
m:= nops(F);
F1:= map(nextprime, F[.., 1]);
F2:= F[.., 2];
np:= mul(F1[i]^F2[i], i=1..m);
np*add(F2[i]/F1[i], i=1..m) mod 4 = 0;
end proc:
select(filter, [$1..1000]); # Robert Israel, Nov 29 2023
PROG
(PARI) isA358760(n) = A358750(n);
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Nov 29 2022
STATUS
approved