%I#14 2019年12月5日10:19:32
%S 1,1,2,2,2,3,1,3,3,1,6,1,2,3,3,2,6,1,6,2,1,1,10,2,3,1,1,5,3,2,
%T 2,11,1,2,2,8,1,6,1,3,4,1,13,1,5,3,3,1,9,2,6,2,1,1,17,1,2,3,5,4,1,
%U 5,2,5,1,1,21,1,2,3,1,5,11,3,2,13,1,2,4,15,1,2,2,1,2,1,2,12,19,1,3,4,9,1,6
%N使N=0(mod usigma(m))的数字m的数量,其中usigma是m的幺正因子之和(A034448)。
%如果p是素数但不是费马素数,那么a(p)=1。
%C最小k,使a(k)=n:1、3、6、28、32、12、112、30、54、24、36、126、48、200、90、160、60、264、96、400_Robert G.Wilson v_,2008年8月7日
%H Amiram Eldar,n的表,n的a(n)=1..10000</a>
%t usigma[n_]:=块[{d=Divisors[n]},加号@@Select[d,GCD[#,n/#]==1&]];f[n_]:=块[{c=0,m=1},而[m<=n,如果[Mod[n,usigma@m]==0,c++];m++];c] ;阵列[f,102](*Robert G.Wilson v_,2008年8月7日*)
%Y参见A034448、A063974。
%K nonn公司
%氧1,3
%A _Yasutoshi Kohmoto,2008年8月1日
%E更多条款摘自2008年8月7日_Robert G.Wilson v_