login
A055678
Integers not congruent to 0 (mod 6) that are divisible by the number of their divisors.
1
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
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
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jun 09 2000
STATUS
approved