%I#17 2019年8月5日07:37:16
%S 1,2,8,12,32,4810812819243251276897217282048307238886912,
%电话819287481228815552276483276834992491522708732110592,
%电话:1310721399681966082488323149284423685242855987270858864329953281259712
%N对N进行编号,使N=phi(N)*core(N),其中phi(x)是Euler totient函数,core(x)为x的无平方部分(最小整数,使x*core。
%H Amiram Eldar,<a href=“/A069185/b069185.txt”>n的表格,a(n)表示n=1.-10000</a>
%F{1}并{形式2^(2u+1)}并}形式4^(u+1)*3^(2 v+1)}u,v>=0.-_Benoit Cloitre_,2004年8月31日
%tf[p_,e_]:=(p^e-p^(e-1))*p^Mod[e,2];aQ[1]=正确;aQ[n_]:=倍@@(f@@@FactorInteger[n])==n;选择[范围[10000],aQ](*_Amiram Eldar_,2019年8月5日*)
%Y参考A000010、A007913。
%K容易,不是
%O 1,2号机组
%2002年4月14日
%E来自阿米拉姆·埃尔达尔的更多条款,2019年8月5日
|