OFFSET
1,1
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..10000
EXAMPLE
sigma(6) mod (6+6) = 12 mod 12 = 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, 6);
MATHEMATICA
Select[Range@ 1400, Mod[DivisorSigma[1, #], # + 6] == 0 &] (* Michael De Vlieger, Jul 05 2016 *)
PROG
(PARI) is(n)=sigma(n)%(n+6)==0 \\ Charles R Greathouse IV, Jul 16 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Paolo P. Lava, Jul 05 2016
STATUS
approved