OFFSET
1,1
COMMENTS
A pseudo anti-perfect number is a positive integer which is the sum of a subset of its anti-divisors. By definition, anti-perfect numbers (A073930) are a subset of this sequence.
Prime pseudo anti-perfect numbers begin: 5, 7, 17, 23, 31, 41, 53, 59, 67, 71, 73, 83, 101, 103, 109, 127, 137, 149, 151, 157, 167, 179, .... - Jonathan Vos Post, Jul 09 2011
LINKS
Paolo P. Lava, Table of n, a(n) for n = 1..1000
EXAMPLE
39 is pseudo anti-perfect because its anti-divisors are 2, 6, 7, 11, 26 and the subset of 2, 11, and 26 adds up to 39.
MAPLE
with(combinat);
P:=proc(i)
local a, k, n, S;
for n from 1 to i do
a:={};
for k from 2 to n-1 do if abs((n mod k)- k/2) < 1 then a:=a union {k}; fi; od;
S:=subsets(a);
while not S[finished] do
if convert(S[nextvalue](), `+`)=n then print(n); break; fi;
od;
od;
end:
P(10000);
CROSSREFS
KEYWORD
nonn
AUTHOR
Paolo P. Lava, Jun 28 2011
STATUS
approved