|
OFFSET
|
1,1
|
|
|
COMMENT
|
It is conjectured that there are no odd weird numbers (A006037), i.e. that all odd abundant numbers (A005231) are pseudoperfect (A005835); this sequence lists those which are not equal to the sum of a subset of proper divisors > 1.
|
|
PROGRAM
|
(PARI) forstep(i=1, 10^7, 2, sigma(i)>2*i | next; isA005835(i, vecextract(divisors(i), "2..-2")) | print1(i", "))
|
|
CROSSREFS
|
Adjacent sequences: A122033 A122034 A122035 this_sequence A122037 A122038 A122039
Sequence in context: A015321 A069314 A022208 this_sequence A140942 A050515 A034630
|
|
KEYWORD
|
nonn,bref,more,nice
|
|
AUTHOR
|
njas, Apr 11 2008, following correspondence from R. K. Guy, M. F. Hasler and othes.
|
|
EXTENSIONS
|
Comments and PARI code from M. F. Hasler, Apr 12 2008
|
|
