login
Abundant numbers of the form k^2 + 1.
1

%I #18 Jan 14 2022 06:33:45

%S 2210,3250,24650,94250,117650,199810,214370,310250,351650,485810,

%T 499850,700570,727610,744770,915850,986050,1306450,1545050,1814410,

%U 1841450,1885130,2582450,2699450,3052010,3583450,4028050,4678570,5094050,5257850,6466850,7059650,7144930

%N Abundant numbers of the form k^2 + 1.

%H Amiram Eldar, <a href="/A178458/b178458.txt">Table of n, a(n) for n = 1..10000</a>

%e 2210 = 2*5*13*17, sigma(2210) = 4536 > 2*2210 and 47^2 + 1 = 2210.

%t Select[Range[3000]^2 + 1, DivisorSigma[1, #] > 2# &]

%Y Cf. A000203, A002522, A005101.

%K nonn

%O 1,1

%A _John L. Drost_, Dec 22 2010