%I#12 2021年7月21日00:43:00
%S 14,27,445962095713341634165222042685319545139564064,
%电话:45445547849586390907984415151529619491201452015527643,
%电话:31724339983818041265415474281845716483646196466574875749187931679826
%N对k进行编号,使isigma(k)=isigma。
%从n=15开始,C a(n)与A293183(n)不同。
%H Amiram Eldar,n的表,n=1..1000的a(n)</a>
%由于isigma(14)=isigma。
%t fun[p_,e_]:=模块[{b=整数位数[e,2]},m=长度[b];乘积[如果[b[[j]]>0,1+p^(2^(m-j)),1],{j,1,m}]];isigma[1]=1;isigma[n_]:=倍@@fun@@FactorInteger[n];aQ[n_]:=isigma[n]==isigma[n+1];选择[范围[1000],aQ]
%Y参见A002961、A049417、A064125、A293183。
%K nonn公司
%O 1,1号机组
%A _Amiram Eldar,2019年3月18日
|