|
|
A109762
|
|
Rare primitive pseudoperfect numbers: primitive pseudoperfect numbers k such that k == 2 or 10 (mod 12).
|
|
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;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|