login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A063734 Square abundant numbers. 1
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 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Harry J. Smith, Table of n, a(n) for n = 1..1000

MATHEMATICA

Select[Range[150]^2, DivisorSigma[1, #]>2#&] (* Harvey P. Dale, Aug 14 2014 *)

PROG

(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

CROSSREFS

Cf. A005101.

Sequence in context: A072413 A131605 A296204 * A069057 A062703 A043438

Adjacent sequences:  A063731 A063732 A063733 * A063735 A063736 A063737

KEYWORD

nonn

AUTHOR

Jason Earls, Aug 13 2001

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 15 19:54 EST 2018. Contains 317240 sequences. (Running on oeis4.)