A132586 Numbers k such that sigma(k+1)-k-2 divides sigma(k)-k-1, where sigma(k) is sum of positive divisors of k and the ratio is greater than zero.
8, 24, 8925, 32445, 118540859325
Offset: 1
Examples
n=8 -> sigma(8)=1+2+4+8 -> sigma(n)-n-1=2+4=6. n+1=9 -> sigma(9)=1+3+9 -> sigma(n+1)-n-2=3. 6/3 = 2 (integer >0)
Programs
-
Maple
with(numtheory); P:=proc(n) local a,i; for i from 1 by 1 to n do if sigma(i+1)-i-2>0 then a:=(sigma(i)-i-1)/(sigma(i+1)-i-2); if a>0 and trunc(a)=a then print(i); fi; fi; od; end: P(100000);
Extensions
a(5) from Donovan Johnson, Aug 31 2008
Comments