登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A306011 设S(m)=d(k)/d(1)+…+d(1)/d(k),其中d(1。。d(k)是m的幺正因子;则当所有数字S(m)按递增顺序排列时,a(n)是S(m的分子。 4

%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日

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年4月19日05:19。包含371782个序列。(在oeis4上运行。)