|
%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
|
