|
%I #15 Dec 04 2019 11:47:26
%S 137885,145145,3501605,6605945,6953765,8409305,10055045,11413205,
%T 11569805,16540205,18545285,19648805,21902705,22806905,25965005,
%U 26655005,29811665,45680921,71569745,79989845,91681289,196492205,214218389,223086125,229554941,233601641
%N Balanced numbers k such that k mod 12 = 5.
%C For the first 26 terms, the quotient sigma(k)/phi(k) is 2 or 3.
%H Amiram Eldar, <a href="/A110598/b110598.txt">Table of n, a(n) for n = 1..7013</a> (terms below 6.5*10^14, calculated using data from Jud McCranie)
%p with(numtheory); BNM5:=[]: for z from 1 to 1 do for m from 1 to 1000000 do n:=12*m+5; if sigma(n) mod phi(n) = 0 then BNM5:=[op(BNM5),n] fi; od; od; BNM5;
%t Select[Range[5,12000000,12],MemberQ[{2,3},DivisorSigma[1,#]/EulerPhi[#]]&] (* _Harvey P. Dale_, May 06 2012 *)
%Y Intersection of A017581 and A020492.
%Y Cf. A000010, A000203, A062699, A068391.
%K nonn
%O 1,1
%A _Walter Kehowski_, Sep 13 2005
%E a(10)-a(26) from _Donovan Johnson_, Aug 30 2012
|
