%I #11 Dec 04 2019 11:11:38
%S 40040,61600,72800,80080,104720,117040,123200,123760,138320,141680,
%T 145600,154000,160160,172480,200200,209440,215600,234080,246400,
%U 247520,254800,261800,276640,280280,283360,291200,292600,308000
%N Numbers n not divisible by 6 such that sigma(n) > 3n.
%H Amiram Eldar, <a href="/A126104/b126104.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[310000], Mod[#, 6] > 1 && DivisorSigma[1, #] > 3# &] (* _Amiram Eldar_, Dec 03 2019 *)
%Y Intersection of A047253 and A068403.
%K nonn
%O 1,1
%A _Ant King_, Mar 07 2007
|