OFFSET
1,1
COMMENTS
EXAMPLE
a(3) = 93 is a term because phi(93)+3 = 63 divides sigma(96) = 252 = 4*63.
MAPLE
filter:= proc(n) uses numtheory;
sigma(n+3) mod (3+phi(n)) = 0
end proc:
select(filter, [seq(i, i=1..2*10^6, 2)]);
MATHEMATICA
Select[Range[1, 2*10^6, 2], Divisible[DivisorSigma[1, # + 3], EulerPhi[#] + 3] &] (* Amiram Eldar, Jan 24 2022 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Robert Israel, Jan 24 2022
EXTENSIONS
a(16)-a(17) from Amiram Eldar, Jan 24 2022
STATUS
approved