|
%I #11 Dec 04 2019 11:40:33
%S 35,124355,1739507,3281663,3852155,7649915,9815195,10434515,13321295,
%T 19154135,19296035,32807555,36664595,41523911,50329955,60668135,
%U 69664595,83338199,107008811,123543695,145960451,275361359,321198059,365269355,393656879,407002211
%N Balanced numbers n such that n mod 12 = 11.
%C For the first 26 terms, the quotient (sigma(n)/phi(n)) is 2 or 3.
%H Amiram Eldar, <a href="/A110596/b110596.txt">Table of n, a(n) for n = 1..6654</a> (terms below 6.5*10^14, calculated using data from Jud McCranie)
%p with(numtheory); BNM11:=[]: for z from 1 to 1 do for n from 1 to 500000 do m:=12*n+11; if sigma(m) mod phi(m) = 0 then BNM11:=[op(BNM11),m] fi; od; od; BNM11;
%t Select[Range[10^7], Mod[#, 12] == 11 && Divisible[DivisorSigma[1, #], EulerPhi[#]] &] (* _Amiram Eldar_, Dec 04 2019 *)
%Y Intersection of A017653 and A020492.
%Y Cf. A000010, A000203.
%K nonn
%O 1,1
%A _Walter Kehowski_, Sep 13 2005
%E a(6)-a(26) from _Donovan Johnson_, Aug 30 2012
|
