A035480 Pseudoperfect numbers (A005835) that are not practical (second definition, A007620).

102, 114, 138, 174, 186, 222, 246, 258, 282, 318, 350, 354, 366, 372, 402, 426, 438, 444, 474, 490, 492, 498, 516, 534, 550, 564, 572, 582, 606, 618, 636, 642, 650, 654, 678, 708, 732, 738, 748, 762, 770, 774, 786, 804, 822, 834, 846, 852, 876, 894, 906, 910, 940, 942, 945, 948, 954, 978, 996, 1002

Offset: 1

Author

Wouter Meeussen

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..1000

Crossrefs

Numbers in A005835 but not in A007620.

Cf. A007621.

Programs

Mathematica

Cases[ A005835, q_/;(Count[ CoefficientList[ Series[ Times@@( (1+z^#)& /@ Divisors[ q ] ), {z, 0, q} ], z ], 0 ]>0) ]

Extensions

Corrected by David W. Wilson.