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: A249430 A260763 A109761 * A074055 A304282 A190645

Adjacent sequences: A109759 A109760 A109761 * A109763 A109764 A109765

Keyword

nonn

Author

Walter Kehowski, Aug 13 2005

Status

approved