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

Author

Robert G. Wilson v, Jun 09 2000

Keywords

• nonn

Links

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

Crossrefs

Intersection of A033950 and A047253.

Programs

Mathematica

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