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

%I #10 Sep 11 2019 06:59:01

%S 1,2,8,9,40,56,80,88,104,128,136,152,184,225,232,248,296,328,344,376,

%T 424,441,448,472,488,536,560,568,584,625,632,640,664,712,776,808,824,

%U 856,872,880,896,904,1016,1040,1048,1089,1096,1112,1192,1208,1250,1256

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

%H Amiram Eldar, <a href="/A055678/b055678.txt">Table of n, a(n) for n = 1..10000</a>

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

%Y Intersection of A033950 and A047253.

%K nonn

%O 1,2

%A _Robert G. Wilson v_, Jun 09 2000