登录

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

 

提示 （来自的问候整数序列在线百科全书!) A105233号 猜测数n，使n的轨迹如A003508号是独一无二的。 1 1, 393, 412, 668, 932, 1096, 1425, 1676, 1706, 1959, 2258, 2476, 2590, 3819, 4162, 4359, 4363, 4569, 4707, 5314, 5462, 5503, 5547, 5949, 6002, 6110, 6207, 6393, 6429, 6484, 6500, 7226, 7706, 8151, 8654, 9566, 9586, 9759, 10085, 10141, 10455, 10774 (列表;图表;参考;听;历史;文本;内部格式) 偏移 1,2 评论 中的轨迹A003508号等定义为a（1）=n，对于n>1，a（n）=a（n-1）+1+a（n-1）的不同素数因子之和，这些素数因子<a（n-l）。 如果n是这个序列的一个项，那么根据定义，n的轨迹中的所有后续项都被排除在外。 链接 n=1..42时的n，a（n）表。 数学 a[1]=1；a[n_]：=a[n]=a[n-1]+1+Plus@@Select[Flatten[表[#[[1]]，{1}]&/@FactorInteger[a[n-2]]，#<a[n-1]&]；t=表[a[n]，{n1200}]；f[n_]：=模[{b，k=1}，b[1]=n；b[m_]：=b[m]=b[m-1]+1+Plus@@Select[Flatten[表[#[[1]]，{1}]&/@FactorInteger[b[m-2]]，#<b[m-1]&]；当[位置[t，b[k]]=={}&&k<1000，k++]时；t=选择[Union[Join[t，Table[b[i]，{i，2，k}]]，#>n&]；如果[k==1000，-1，k-1]]；lst={1}；Do[如果[f[n]==-1，附加到[lst，n]]，{n，12500}]；第一次 交叉参考 囊性纤维变性。A003508号,A105210号,A105211号,A105212号和A105213号. 上下文中的序列：A068276号 A068288号 A085019号*A048129号 A045194号 A105210号 相邻序列：A105230号 A105231号 A105232号*A105234号 A105235号 A105236号 关键词 非n 作者 R.K.盖伊和罗伯特·威尔逊v2005年4月14日 状态 经核准的

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

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

最后修改时间：美国东部时间2024年4月18日18:58。包含371781个序列。（在oeis4上运行。）