%I#15 2022年6月28日02:50:31
%S 1,2,4,8,9,16,18,32,33,36,49,64,65,66,69,72,77,98,99121128130132,
%电话:138141144145154169177196198209225242256260264265,
%电话:2762828829029730530832533835436139239641841450484
%N对k进行编号,使k和phi(k)在二进制表示中具有相同数量的1。
%H Amiram Eldar,n的表,a(n)表示n=1..10000</a>
%基2中e 676=1010100100,基2中phi(676)=312=100111000,因此676在序列中。
%t选择[Range[500],DigitCount[#,2,1]==数字计数[EulerPhi[#],2,1]&](*Harvey P.Dale_,2021年6月17日*)
%o(PARI)对于(n=11000,如果(总和(i=1,长度(二进制(n)),分量(二进制(n),i))==总和(i=1,长度(二元(eulerphi(n)
%Y参考A000010、A000120、A295660。
%K基础,简单,无
%O 1,2号机组
%2002年6月1日,A _贝尼特·克洛伊特
|