A063734 Square abundant numbers.
36, 100, 144, 196, 324, 400, 576, 784, 900, 1296, 1600, 1764, 1936, 2304, 2500, 2704, 2916, 3136, 3600, 4356, 4624, 4900, 5184, 5776, 6084, 6400, 7056, 7744, 8100, 8464, 9216, 9604, 10000, 10404, 10816, 11025, 11664, 12100, 12544, 12996, 13456, 14400
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Harry J. Smith)
Programs
-
Mathematica
Select[Range[150]^2,DivisorSigma[1,#]>2#&] (* Harvey P. Dale, Aug 14 2014 *)
-
PARI
j=[]; for(n=1,25000, if(sigma(n)>(2*n),a=n; if(issquare(a),j=concat(j,a)))); j
-
PARI
{ n=0; for (m=1, 10^9, if (issquare(m) && sigma(m)>(2*m), write("b063734.txt", n++, " ", m); if (n==1000, break)) ) } \\ Harry J. Smith, Aug 29 2009
-
PARI
{ n=0; for (m=1, 10^9, s=m^2; if (sigma(s)>(2*s), write("b063734.txt", n++, " ", s); if (n==1000, break)) ) } \\ Harry J. Smith, Aug 29 2009
Formula
a(n) = A381738(n)^2. - Amiram Eldar, Mar 07 2025
Comments