%I M2984#57 2024年2月19日01:49:08

%S 1,3,15,26,39,45,74104111117122146175183195219296314333，

%电话357386471488549554555579584588560862646657794831842，

%电话：9149159399621071108210951191122612561263129213221346

%N对k进行编号，使φ（k）=φ（sigma（k））。

%D S.W.Golomb，数论函数之间的等式，摘要882-11-16，摘要Amer。数学。《社会学杂志》，14（1993），415-416。

%盖伊，《数论中尚未解决的问题》，B42。

%D N.J.A.Sloane和Simon Plouffe，《整数序列百科全书》，学术出版社，1995年（包括该序列）。

%H Antti Karttunen，n表，n=1..20000的a（n）（T.D.Noe的术语1..1000，Marius a.Burtea的术语1001..12394）

%H S.W.Golomb，致N.J.a.Sloane的信，1992年10月</a>

%H S.W.Golomb，《数论函数之间的等式》，未出版手稿。（带注释的扫描件）

%t选择[Range@1350，EulerPhi@#==EulerPi@DivisorSigma[1，#]&]（*_Michael De Vlieger_，2019年1月1日*）

%o（PARI）lista（nn）={对于（i=1，nn，if（eulerphi（i）==eulerpchi（sigma（i）），打印1（i，“，”）；）；}\\_Michel Marcus_，2013年5月25日

%o（哈斯克尔）

%o a006872 n=a006872_列表！！（n-1）

%o a006872_list=过滤器（\x->a000010'x==a000010'（a000203'x））[1..]

%o--_Reinhard Zumkeller_，2015年7月14日

%o（岩浆）[1.2000]|EulerPhi（SumOfDivisors（n））eq EulerPhi（n）]；//_Marius A.Burtea，2019年1月1日

%Y参考A000010、A000203、A062401、A353637（特性函数）。

%A353636中的Y零位置。

%A353684和A353683以及A353685和A353686的Y设置差异。

%A353684和A353685的Y交叉口。

%Y子序列：A260021、A353634、A35363、A353679（奇数项）。

%Y另请参见A033631、A033632、A067880、A137815、A260020。

%K nonn公司

%O 1,2号机组

%A杰弗里·沙利特，N·J·A·斯隆_

%E更多来自_Jud McCranie的条款_