|
|
A110598
|
|
Balanced numbers k such that k mod 12 = 5.
|
|
1
|
|
|
137885, 145145, 3501605, 6605945, 6953765, 8409305, 10055045, 11413205, 11569805, 16540205, 18545285, 19648805, 21902705, 22806905, 25965005, 26655005, 29811665, 45680921, 71569745, 79989845, 91681289, 196492205, 214218389, 223086125, 229554941, 233601641
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
For the first 26 terms, the quotient sigma(k)/phi(k) is 2 or 3.
|
|
LINKS
|
|
|
MAPLE
|
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;
|
|
MATHEMATICA
|
Select[Range[5, 12000000, 12], MemberQ[{2, 3}, DivisorSigma[1, #]/EulerPhi[#]]&] (* Harvey P. Dale, May 06 2012 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|