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

Offset: 1

Author

N. J. A. Sloane, Apr 06 2008

Keywords

• nonn

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

Crossrefs

Cf. A006037, A005100, A005835, A023196.

Programs

Haskell

a136447 n = a136447_list !! (n-1)
a136447_list = filter ((== 0) . a210455) [1..]
-- Reinhard Zumkeller, Jan 21 2013

Mathematica

ppQ[n_] := AnyTrue[Subsets[Divisors[n] // Most], Total[#] == n&];
Select[Range[100], Not[ppQ[#]]&] (* Jean-François Alcover, Aug 03 2018 *)

Extensions

Edited by M. F. Hasler, Jul 18 2016