登录

年度呼吁:请向OEIS基金会捐款支持OEIS的持续开发和维护。现在是我们的第61年,我们有超过378000个序列,我们已经获得了11000条引文(通常说“多亏了OEIS才发现”)。

106551英镑
a(n)=第n个半素数+(它的两个除数的串联,第一个是最大除数)。
1
26, 38, 42, 62, 86, 68, 94, 134, 80, 158, 146, 206, 110, 230, 172, 278, 126, 224, 170, 250, 350, 374, 200, 302, 446, 194, 494, 260, 518, 380, 228, 406, 566, 290, 638, 484, 350, 710, 296, 1232, 734, 536, 562, 330, 806, 614, 854, 1454, 440, 878, 470, 950, 692
抵消
1,1
评论
以最小的除数开始的除数的串联导致不同的序列。
链接
罗伯特·伊斯雷尔,n=1..10000时的n,a(n)表
例子
第一个半素数是4;4是2*2;26=4+22.
第二个半素数是6;6是3*2;38=6+32.
第三个半素数是9;9是3*3;42=9+33.
第四个半素数是10;10是5*2;62=10+52.
MAPLE公司
N: =1000:#对于术语<=N
素数:=选择(i素数,[2,seq(i,i=3…N/2,2)]):
R: =空:
对于i从1到nops(素数),对于j从1到i,而对于素数[i]*素数[j]<=N do
R: =R,[素数[i]*素数[j],素数[i]*10^(1+ilog10(素数[j]))+素数[j]]
日期:
映射(转换,排序([R],(x,y)->x[1]<y[1]),`+`)#罗伯特·伊斯雷尔2020年6月9日
数学
cp[n_]:=块[{p=Reverse[First/@FactorInteger[n]]},如果[Length[p]==1,p=Join[p,p]];n+FromDigits[加入@@整数位数@p]];cp/@选择[Range@160,2==PrimeOmega@#&](*乔瓦尼·雷斯塔2020年6月10日*)
关键字
基础,容易的,非n,
作者
扩展
编辑人N.J.A.斯隆2007年9月29日
更正和扩展人哈维·P·戴尔2012年6月3日
a(40)和a(48)由修正罗伯特·伊斯雷尔2020年6月9日
状态
经核准的