OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..3000
MAPLE
PSP := proc(l::list) local x, R, S, P, L; S:=sort(l); R:=[]; P:=S; for x in S do if not(x in R) then L:=selectremove(proc(z) not(z=x) and z mod x = 0 end, P); R:=[op(R), op(L[1])]; P:=L[2]; fi; od; return P; end: PSP(RSP); # RSP is sequence of rare pseudoperfect numbers
CROSSREFS
KEYWORD
nonn
AUTHOR
Walter Kehowski, Aug 13 2005
STATUS
approved