| 3, 4, 10, 15, 28, 35, 54, 55, 63, 64, 65, 85, 95, 98, 100, 115, 125, 135, 144, 145, 147, 155, 156, 175, 176, 185, 189, 205, 215, 234, 235, 245, 260, 265, 295, 297, 305, 335, 336, 351, 355, 364, 365, 395, 400, 408, 415, 416, 445, 459, 485
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Composite Integers divisible by 1 more than the number of their divisors.
|
|
MATHEMATICA
|
Do[ If[ !PrimeQ[ n ], If[ IntegerQ[ n/(DivisorSigma[ 0, n ]+1) ], Print[ n ] ] ], {n, 1, 500} ]
|
|
CROSSREFS
|
Sequence in context: A056517 A048155 A103080 this_sequence A054184 A007007 A037952
Adjacent sequences: A055717 A055718 A055719 this_sequence A055721 A055722 A055723
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 09 2000
|
|
