|
Search: id:A109762
|
|
|
| A109762 |
|
Rare primitive pseudoperfect numbers. |
|
+0
1
|
|
| 350, 490, 550, 650, 770, 910, 1190, 1330, 1430, 1610, 1870, 2002, 2030, 2090, 2170, 2210, 2470, 2530, 2590, 2870, 2990, 3010, 3190, 3230, 3290, 3410, 3710, 3770, 4070, 4130, 4270, 4510, 4690, 4730, 4970
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
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
|
Cf. A006036.
Sequence in context: A138944 A043619 A109761 this_sequence A074055 A108776 A084875
Adjacent sequences: A109759 A109760 A109761 this_sequence A109763 A109764 A109765
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Walter A. Kehowski (wkehowski(AT)cox.net), Aug 13 2005
|
|
|
Search completed in 0.004 seconds
|
