登录
OEIS基金会由OEIS的用户捐款和西蒙斯基金会的资助。

 

标志

感谢所有在我们年度呼吁中捐款的人!
若要查看捐赠者名单或捐款,请参阅OEIS基金会主页

提示
问候整数序列的在线百科全书!)
A226040 A(n)=乘积{p素数,使得p除以n+1和p-1不除以n}。
1, 1, 1、1, 1, 3、1, 1, 1、5, 1, 3、1, 7, 5、1, 1, 3、1, 5, 7、11, 1, 3、1, 13, 1、7, 1, 15、1, 1, 11、17, 35, 3、17, 35, 3、y、y、y、y、y、y、y、y、y、y、y、γ、y、γ 列表图表参考文献历史文本内部格式
抵消

0. 6

链接

查尔斯R.n,a(n)n=0…10000的表

Peter Luschny广义伯努利数.

公式

A(n)=A22548(n)/A141056(n)。

例子

A(41)=21=3×7=乘积({2,3,7} SETIMUUS { 2 })。

枫树

S:=(p,n)->((n+1)mod p=0)和(nmod(p-1)<>0);

A226040= n->MUL(z,z=SELECT(p>s(p,n)),选择(‘ISPrime',[ $ 2…n]));

SEQA226040(n),n=0。77);

Mathematica

A[n]:= Time@选择[因子整数[n+1] [[ALL,1 ] ],!可分[ n,α- 1 ] ];a〔0〕=1;表[a[n],{n,0, 77 }](*)让弗兰,6月27日2013,枫*之后)

黄体脂酮素

(圣人)

DEFA226040(n):

F=滤波器(λp:((n+1)%p==0)和(n%(p-1)<>0),素数(n))

返回MUL(f)

[A226040(n)n(0…77)

(PARI)a(n)=i(f=因子(n+1)[,1 ],s=1);pod(i=1,αf f,IF(n%(f[i] -1),f[i],1)]查尔斯6月27日2013

交叉裁判

囊性纤维变性。A1600A226038A226039A22548A141056.

语境中的顺序:A317939 A0867 67 A11928*A302034 A302044 A028

相邻序列:A226037 A226038 A226039*A226041 A226042 A226043

关键词

诺恩

作者

彼得卢斯尼5月26日2013

地位

经核准的

查找γ欢迎γ维基γ注册γ音乐γ情节2γ演示γ指数γ浏览γ更多γ网络摄像机
贡献新的SEQ。或评论γ格式γ样式表γ变换γ超级导引头γ最近
OEIS社区通过保持OEIS基金会

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

最后修改了1月18日23:04 EST 2020。包含331030个序列。(在OEIS4上运行)