A136447 - OEIS

A136447

Numbers which are not pseudoperfect: Complement of A005835.

1, 2, 3, 4, 5, 7, 8, 9, 10, 11, 13, 14, 15, 16, 17, 19, 21, 22, 23, 25, 26, 27, 29, 31, 32, 33, 34, 35, 37, 38, 39, 41, 43, 44, 45, 46, 47, 49, 50, 51, 52, 53, 55, 57, 58, 59, 61, 62, 63, 64, 65, 67, 68, 69, 70, 71, 73, 74, 75, 76, 77, 79, 81, 82, 83, 85, 86, 87, 89, 91, 92, 93, 94, 95

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

COMMENTS

Contains the weird numbers 70, 836, ... (A006037), so is different from the set A005100 of deficient numbers.

A065205(a(n)) = A210455(a(n)) = 0. - Reinhard Zumkeller, Jan 21 2013

LINKS

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

MATHEMATICA

ppQ[n_] := AnyTrue[Subsets[Divisors[n] // Most], Total[#] == n&];

Select[Range[100], Not[ppQ[#]]&] (* Jean-François Alcover, Aug 03 2018 *)

PROG