OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A063383号 a(1)=6,a(n)=a(n-1)的两个最接近除数的串联,其乘积等于a(n-1),或者如果a(n-l)是素数,则1和a(n-1.)的串联。 1
6, 23, 123, 341, 1131, 2939, 12939, 57227, 89643, 329881, 1073083, 1197553, 7171079, 17171079, 57301247, 208327509, 1171780577, 1219684137, 1478297171, 2587571433, 2795835979, 8663322733, 13666409441, 113666409441, 1030771102733, 2114885171103, 6993025586797 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,1
链接
哈维·P·戴尔,n=1..100时的n,a(n)表
数学
f[n-Integer]:=(d=除数[n];l=长度[d];如果[EvenQ[l],ToExpression[ToString[d[[l/2]]]<>ToString[d[[l/2+1]]],ToExpression[ToString[d[[l/2+.5]]]<>ToString[d[[l/2+.5]]]]);嵌套列表[f,6,25]
tcf[n_]:=模[{d=除数[n],len},len=长度[d]/2;FromDigits[Flatten[IntegerDigits/@Take[d,{len,len+1}]]];ctc[n_]:=如果[PrimeQ[n],10^整数长度[n]+n,tcf[n]];嵌套列表[ctc,6,30](*哈维·P·戴尔2019年5月19日*)
黄体脂酮素
(Python)
从辛导入除数,isprime
定义aupton(术语):
alst=[6]
对于范围(2,项+1)中的n:
if isprime(alst[-1]):alst.append(int('1'+str(alst[-1]))
其他:
divs=除数(alst[-1])
d1=divs[(长度(divs)-1)//2]
d2=alst[-1]//d1
alst.append(int(字符串(d1)+字符串(d2))
返回alst
打印(aupton(27))#迈克尔·布拉尼基2021年6月23日
交叉参考
囊性纤维变性。A003681号,A062094号A062095型.
关键词
基础,非n
作者
罗伯特·威尔逊v2001年8月8日
扩展
定义由澄清哈维·P·戴尔2019年5月19日
状态
已批准

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

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

上次修改时间:美国东部夏令时2024年5月22日21:38。包含372758个序列。(在oeis4上运行。)