%I#101 2024年2月7日01:17:04

%S 1,2,3,6,12,14,15,30,35,42,56,70,78105140168190210248264270，

%电话：357418420570594616630714744812840910104512401485，

%电话：167218482090221423762436258027302970308031353339359637203828

%N平衡数：用φ（k）（A000010）除以σ（k）的数字k（A000203）。

%C随着n的增加，商A020492（n）/A002088（n）=SummatorySigma/Summatory Totient似乎接近Pi^4/36或zeta（2）^2[~2.705808084277845]_Labos Elemer，2004年9月20日，由_Charles R Greathouse IV更正，2012年6月20日

%如果2^p-1是素数（梅森素数），那么m=2^；sigma（m）=（2^（p-1）-1）*2^p，因此sigma。因此，对于每个n，A133028（n）=2^（A000043（n）-2）*（2^ A000043_Farideh Firozbakht，2005年11月28日

%C Phi和sigma都是乘法函数，因此，如果m和n是互质并且包含在这个序列中，那么m*n也在这个序列内_恩里克·佩雷斯·埃雷罗，2010年9月5日

%C商sigma（n）/phi（n）在A023897中_伯纳德·肖特，2017年6月6日

%C有544768个平衡数<10^14。-_Jud McCranie_，2017年9月10日

%Ca（975807）=419998185095132.-_Jud McCranie_，2017年11月28日

%D D.Chiang，“N’s which phi（N）divides sigma（N）”，《数学芽》，第六章，第53-70页，第三卷，编辑：H.D.Ruderman，Mu Alpha Theta 1984。

%H Donovan Johnson，n的表，n的a（n）=1..10000（T·D·Noe的前1000个术语）

%H Jud McCranie，<a href=“/A020492/A020492.txt”>670314平衡数</a>（第一个1000来自T.D.Noe，第一个10000来自Donovan Johnson）

%eσ（35）=1+5+7+35=48，φ（35）=24，因此35是一个项。

%t选择[Range[4000]，IntegerQ[DivisorSigma[1，#]/EulerPhi[#]]&]

%t（*第二个程序：*）

%t选择[Range@4000，Divisible[DivisorSigma[1，#]，EulerPhi@#]&]（*Michael De Vlieger_，2017年11月28日*）

%o（岩浆）[1..3900]|SumOfDivisors（n）mod EulerPhi（n）eq 0]中的n：n；//_Klaus Brockhaus，2008年11月9日

%o（PARI）select（n->sigma（n）%eulerphi（n）==0，vector（10^4，i，i））\\-Charles R Greathouse IV_，2012年6月20日

%o（Python）

%o从症状导入到患者，除数_sigma

%o打印（如果除数_sigma（n）%totiten（n）==0，则[n代表范围（14001）内的n）]#_Indranil Ghosh_，2017年7月6日

%Y参考A000010、A000043、A000203、A000668、A011257、A023897、A133028、A291565、A29156、A292422、A351114（特性功能）。

%A063514中0的Y位置。

%K nonn公司

%O 1,2号机组

%A·热心的W·威尔逊_

%E更多条款，来自_Farideh Firoozbakht，2005年11月28日