|
Search: id:A066192
|
|
|
| A066192 |
|
Composite n such that the sum of the odd aliquot parts of n divides n. |
|
+0
2
|
|
| 4, 8, 12, 16, 24, 32, 48, 56, 64, 96, 112, 120, 128, 192, 224, 240, 256, 384, 448, 480, 512, 528, 672, 768, 896, 960, 992, 1024, 1056, 1344, 1456, 1536, 1792, 1920, 1984, 2048, 2112, 2160, 2208, 2688, 2912, 3072, 3584, 3840, 3968, 4096, 4224, 4320, 4416
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
Do[ d = Drop[ Divisors[ n ], -1 ]; l = Length[ d ]; od = 1; k = 2; While[ k <= l, If[ OddQ[ d[ [ k ] ] ], od = od + d[ [ k ] ] ]; k++ ]; If[ !PrimeQ[ n ] && IntegerQ[ n/od ], Print[ n ] ], {n, 2, 10^4} ]
|
|
CROSSREFS
|
Sequence in context: A102861 A004976 A071385 this_sequence A097981 A033833 A045783
Adjacent sequences: A066189 A066190 A066191 this_sequence A066193 A066194 A066195
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 15 2001
|
|
|
Search completed in 0.002 seconds
|
