Logo

Greetings from The On-Line Encyclopedia of Integer Sequences!

Hints

Search: id:A064597
Displaying 1-1 of 1 results found. page 1
     Format: long | short | internal | text      Sort: relevance | references | number      Highlight: on | off
A064597 Nonunitary abundant numbers: the sum of the nonunitary divisors of n is larger than n; i.e. sigma(n) - usigma(n) > n. +0
5
36, 48, 72, 80, 96, 108, 120, 144, 160, 168, 180, 192, 200, 216, 224, 240, 252, 264, 280, 288, 300, 312, 320, 324, 336, 352, 360, 384, 392, 396, 400, 408, 416, 432, 448, 456, 468, 480, 504, 528, 540, 552, 560, 576, 588, 600, 612, 624, 640, 648, 672, 684 (list; graph; listen)
OFFSET

1,1

LINKS

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

EXAMPLE

The sum of the nonunitary divisors of 36 is 2+3+6+12+18 = 41.

MATHEMATICA

nusigma[ n_ ] := DivisorSigma[ 1, n ]-Times@@(1+Power@@#&/@FactorInteger[ n ]); For[ n=1, True, n++, If[ nusigma[ n ]>n, Print[ n ] ] ]

PROGRAM

(PARI) usigma(n)= { local(f, s=1); f=factor(n); for(i=1, matsize(f)[1], s*=1 + f[i, 1]^f[i, 2]); return(s) } { n=0; for (m=1, 10^9, if (sigma(m) - usigma(m) > m, write("b064597.txt", n++, " ", m); if (n==1000, break)) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Sep 19 2009]

CROSSREFS

Cf. A048146, A064591, A064598, A063846.

Sequence in context: A167310 A083674 A160063 this_sequence A119850 A033701 A132956

Adjacent sequences: A064594 A064595 A064596 this_sequence A064598 A064599 A064600

KEYWORD

nonn,easy

AUTHOR

Dean Hickerson (dean.hickerson(AT)yahoo.com), Sep 25, 2001

page 1

Search completed in 0.002 seconds

Lookup | Welcome | Find friends | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
More pages | Superseeker | Maintained by N. J. A. Sloane (njas@research.att.com)

Last modified December 15 00:47 EST 2009. Contains 170825 sequences.


AT&T Labs Research