A055678 Integers not congruent to 0 (mod 6) that are divisible by the number of their divisors.

1, 2, 8, 9, 40, 56, 80, 88, 104, 128, 136, 152, 184, 225, 232, 248, 296, 328, 344, 376, 424, 441, 448, 472, 488, 536, 560, 568, 584, 625, 632, 640, 664, 712, 776, 808, 824, 856, 872, 880, 896, 904, 1016, 1040, 1048, 1089, 1096, 1112, 1192, 1208, 1250, 1256

Offset

1,2

Links

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

Mathematica

Do[If[Mod[n, 6]!=0, If[IntegerQ[n/DivisorSigma[0, n]], Print[n]]], {n, 1500}]

Crossrefs

Intersection of A033950 and A047253.

Sequence in context: A181887 A221049 A181476 * A301281 A091793 A350454

Adjacent sequences: A055675 A055676 A055677 * A055679 A055680 A055681

Keyword

nonn

Author

Robert G. Wilson v, Jun 09 2000

Status

approved