OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= proc(n) local F, np, t;
if n mod 5 = 0 then return false fi;
F:= ifactors(n)[2];
np:= add(n*t[2]/t[1], t=F);
np mod 5 = 0
end proc:
select(filter, [$1..1000]); # Robert Israel, Dec 05 2024
PROG
(PARI) \\ See A369968.
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Feb 10 2024
STATUS
approved