A109762 Rare primitive pseudoperfect numbers: primitive pseudoperfect numbers k such that k == 2 or 10 (mod 12).

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

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

Cf. A006036, A109761.

Sequence in context: A260763 A390873 A109761 * A074055 A392911 A304282

Adjacent sequences: A109759 A109760 A109761 * A109763 A109764 A109765

Keyword

nonn

Author

Walter Kehowski, Aug 13 2005

Status

approved