OFFSET
1,1
EXAMPLE
sigma(10) mod (10 + 8) = 18 mod 18 = 0.
MAPLE
with(numtheory); P:=proc(q, h) local n; for n from 1 to q do
if n+h>0 then if type(sigma(n)/(n+h), integer) then print(n); fi; fi; od; end: P(10^9, 8);
MATHEMATICA
Select[Range[10^6], Mod[DivisorSigma[1, #], # + 8] == 0 &] (* Michael De Vlieger, Jul 05 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Paolo P. Lava, Jul 05 2016
EXTENSIONS
a(16)-a(35) from Giovanni Resta
STATUS
approved