A218993-OEIS公司

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

A218993型

使用n的除数b和c计算最小约化分数b/c>1的分子。

4

2, 3, 2, 5, 3, 7, 2, 3, 2, 11, 4, 13, 2, 5, 2, 17, 3, 19, 5, 7, 2, 23, 4, 5, 2, 3, 7, 29, 6, 31, 2, 3, 2, 7, 4, 37, 2, 3, 5, 41, 7, 43, 2, 5, 2, 47, 4, 7, 2, 3, 2, 53, 3, 11, 8, 3, 2, 59, 6, 61, 2, 9, 2, 13, 3, 67, 2, 3, 7, 71, 9, 73, 2, 5, 2, 11, 3, 79, 5, 3, 2

(列表;图表;参考;听;历史;文本;内部格式)

抵消

2,1

评论

乘积b*c除以n。除了一个以外，每个正整数都会无限次出现吗？

链接

克拉克·金伯利，n=2..10000时的n，a（n）表

例子

对于n=2，。。。，12，分数是2/1、3/1、2/1、5/1、3/2、7/1、2/l、3/1，2/1、11/1、4/3，因此

A218993型= (2, 3, 2, 5, 3, 7, 2, 3, 2, 11, 4, ... );

A219093型= (1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 3, ... );

A219094型= (1, 1, 2, 1, 1, 1, 4, 3, 5, 1, 1, ... );

A219095型= (6, 12, 15, 18, 20, 21, 24, 28, 30, 35, 36, ... ).

数学

f[n_]：=除数[n]；

t=表[Min[Table[f[n][[i+1]]/f[n][[i]]，{i，1，-1+Length[f[n]]}]]，{n，2200}]；

tn=分子[t](*A218993型*)

td=分母[t](*A219093型*)

表[n/（tn[[n-1]]*td[[n-2]），

{n，2100}](*A219094型*)

p[n_]：=如果[IntegerQ[t[n]]]，0，1]

u=表[p[n]，{n，1，长度[t]}]；1+压扁[位置[u，1]](*A219095型*)

交叉参考

囊性纤维变性。A219093型,A219094型,A219095型.

上下文中的序列：A210437号 A109674号 A284260型*A067629号 A079870号 A364156型

相邻序列：A218990型 A218991型 A218992型*18994年2月 A218995型 A218996型

关键词

非n,容易的

作者

克拉克·金伯利，2013年2月6日

状态

经核准的

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

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

上次修改时间：美国东部夏令时2024年9月20日12:37。包含376072个序列。（在oeis4上运行。）