登录
A184830型
a(n)=最大k,这样A000961号(n+1)=A000961号(n) +(+)(A000961号(n) mod k),如果不存在这样的k,则为0。
0, 0, 2, 3, 3, 6, 7, 7, 9, 10, 15, 15, 15, 21, 23, 25, 27, 30, 27, 33, 39, 39, 45, 45, 47, 57, 58, 61, 63, 69, 67, 77, 79, 77, 81, 93, 99, 99, 105, 105, 105, 117, 123, 126, 125, 125, 135, 129, 147, 145, 151, 159, 165, 165, 167, 177, 171, 189, 189, 195
抵消
1,3
评论
根据定义,a(n)=A000961号(n)-A057820号(n) 如果A000961号(n)-A057820号(n) >A057820号(n) ,否则为0,其中A000961号是大国A057820号就是大国之间的差距。
链接
雷米·艾斯曼,n=1..9790时的n,a(n)表
例子
对于n=1,我们有A000961号(1) = 1,A000961号(2) = 2; 没有k使得2-1=1=(1 mod k),因此a(1)=0。
对于n=3,我们有A000961号(3) = 3,A000961号(4) = 4; 2是最大的k,使得4-3=1=(3 mod k),因此a(3)=2;a(3)=3-1=2。
对于n=24,我们有A000961号(24) = 49,A000961号(25) = 53; 45是最大的k,因此53-49=4=(49 mod k),因此a(24)=45;a(24)=49-4=45。
MAPLE公司
A184830型:=进程(n)
如果A000961号(n) >2个*A057820号(n) 然后
A000961号(n)-A057820号(n) ;
其他的
0;
结束条件:;
结束进程:
序列(A184830型(n) ,n=1..40)#R.J.马塔尔2016年9月23日
数学
nmax=10000;
ppmax=12*nmax;(*溢出时增加主功率最大系数12*)
A000961号=连接[{1},选择[Range[2,ppmax],PrimePowerQ]];
a[n_]:=如果[A000961号[[n]]>2*A057820号[[n]],A000961号[[n]]-A057820号[[n]],0];
表[a[n],{n,1,nmax}](*Jean-François Alcover公司2023年8月6日*)
关键词
非n,容易的
作者
雷米·艾斯曼2011年1月23日
状态
经核准的