%I#8 2019年2月6日11:42:58
%S 1,5,10,17,26,50,65,25,82122,13170,85257290,5212536221205,
%电话:530500626735305842425962102542512013702606971682,
%电话:16972518501301700221010372132905240228101285144529001325
%N设S(m)=d(k)/d(1)+…+d(1)/d(k),其中d(1)。。d(k)是m的幺正因子;则当所有数字S(m)按递增顺序排列时,a(n)是S(m的分子。
%e前8对{m,S(m)}是{1,1},{2,5/2},}3,10/3},{4,17/4},◄5,26/5},}{6,25/3},]{7,50/7},▄{8,65/8}。当数字S(m)按递增顺序排列时,这些对是{1,1},{2,5/2},}3,10/3},{4,17/4},}5,26/5},◄7,50/7},]{8,65/8},▄{6,25/3},因此前8个分子是1,5,10,17,26,50,65,25。
%tz=100;r[n_]:=选择[Divisors[n],GCD[#,n/#]==1&];
%t k[n_]:=长度[r[n]];
%t t[n_]:=表[r[n][[k[n]+1-i]]/r[n][[k[1]+i-1]],{i,1,k[n]};
%t s=表[{n,总计[t[n]]},{n,1,z}]
%t v=排序依据[s,Last]
%t v1=表格[v[[n]][1],{n,1,z}](*A306010*)
%t w=表[v[[n]][2],{n,1,z}];
%t分子[w](*A306011*)
%t分母[w](*A306012*)
%Y参见A077610、A229994、A229996、A305995、A306010、A306012。
%K nonn公司
%O 1,2号机组
%A_Clark Kimberling_,2018年6月16日
|