搜索： a023151-编号：a023155
|
| |
| |
|
|
|
0, 1, 2, 3, 1, 1, 3, 3, 5, 9, 9, 1, 2, 1, 2, 5, 8, 7, 10, 11, 10, 13, 14, 17, 22, 23, 22, 23, 22, 23, 3, 3, 5, 3, 9, 7, 9, 11, 11, 13, 15, 13, 19, 17, 17, 15, 23, 31, 31, 29, 29, 31, 29, 35, 37, 39, 41, 39, 41, 41, 39, 45, 55, 55, 53, 53, 63, 65, 2, 69, 69, 71, 2, 3, 4, 3
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,3
|
|
|
链接
|
|
|
|
配方奶粉
|
a（n）=质数（n）-n*楼层（质数（n）/n）
|
|
|
MAPLE公司
|
modp（ithprime（n），n）；
|
|
|
数学
|
表[Mod[Prime[n]，n]，{n，100}](*扎克·塞多夫2005年4月25日*）
|
|
|
黄体脂酮素
|
（PARI）用于（n=1100，print1（质数（n）%n，“，”））
（岩浆）[（NthPrime（n）mod n）：n in[1..100]]//文森佐·利班迪2011年4月6日
（哈斯克尔）
a004648 n=a004648_列表！！（n-1）
a004648_list=zipWith mod a000040_list[1..]
（SageMath）
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
N.J.A.斯隆，Daniel Wild（野生（AT）教育学.u-strasbg.fr）
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
1, 2, 5, 6, 12, 14, 181, 6459, 6460, 6466, 100362, 251712, 251732, 637236, 10553504, 10553505, 10553547, 10553827, 10553851, 10553852, 69709709, 69709724, 69709728, 69709869, 69709961, 69709962, 179992920, 179992922, 179993170, 465769815, 465769819, 465769840, 3140421737, 3140421744, 3140421767, 3140421892, 3140421935
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
|
|
|
链接
|
|
|
|
例子
|
6在序列中是因为第六素数13与1（mod 6）同余。
|
|
|
数学
|
Do[If[IntegerQ[（质数[n]-1）/n]，打印[n]]，{n，1，10^8}]
|
|
|
黄体脂酮素
|
（哈斯克尔）
导入数据。列表（元素索引）
a023143 n=a023143_列表！！（n-1）
a023143_list=1:map（+1）（元素索引1 a004648_list）
（Python）
素数=[2,3]
a023143_list=[1]
数量=3
而len（素数）<=结束：
数字+=1
prime=假
长度=len（素数）
对于范围（0，长度）中的y：
如果num%primes[y]=0:
prime=真
其他：
prime=假
打破
if（质数）：
素数.附加（num）
对于范围（2，len（素数））中的x：
如果（素数[x-1]%（x））==1：
a023143_列表.append（x）
返回023143_列表
（Python）
从sympy导入primerange
定义A023143号（end）：如果（p-1）%（n-1）==0]，则返回[n+1代表枚举中的n，p（素数范围（2，end））#大卫·拉德克利夫2016年6月27日
（PARI）n=0；打印1（1）；对于素数（p=2，1e9，如果（p%n++==1，打印1（“，”n））\\查尔斯·格里特豪斯四世2015年4月28日
（岩浆）[1..10000中的n:n | IsIntegral（（NthPrime（n）-1）/n）]//马吕斯·A·伯蒂2018年12月30日
|
|
|
交叉参考
|
囊性纤维变性。A048891号,A045924号,A052013号,A023144号,A023145号,A023146号,A023147号,A023148号,A023149美元,A023150型,A023151号,A023152号。
|
|
|
关键词
|
非n,美好的
|
|
|
作者
|
|
|
|
扩展
|
a（30）-a（37）来自扎克·塞多夫，2014年4月19日
术语a（33）-a（37）按正确顺序排序乔瓦尼·雷斯塔2020年2月23日
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
1, 3, 13, 15, 69, 73, 637321, 27066989, 27067095, 27067133, 179992909, 1208198629, 1208198853, 8179002209, 382465573515, 2636913003191, 18262325820323, 18262325820339, 6201265271239163, 6201265271239191, 6201265271239431, 43525513764815041, 43525513764815125
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
|
|
|
链接
|
|
|
|
数学
|
NextPrim[n_]：=块[{k=n+1}，While[！PrimeQ[k]，k++]；k] ；p＝1；Do[If[Mod[p=NextPrim[p]，n]==2，Print[n]]，{n，1，10^9}](*罗伯特·威尔逊v2004年2月18日*）
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
1, 7, 19, 21, 2703, 15929, 4124583, 27067051, 179992913, 179993011, 179993159, 1208198559, 1208198859, 55762149031, 382465573511, 382465573547, 18262325820337, 6201265271239229, 6201265271239409, 6201265271239433, 43525513764814941, 43525513764816369, 43525513764816411, 43525513764816437, 306268030480171419
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
链接
|
|
|
|
数学
|
NextPrim[n_]：=块[{k=n+1}，While[！PrimeQ[k]，k++]；k] ；p＝1；Do[If[Mod[p=NextPrim[p]，n]==10，Print[n]]，{n，1，10^9}](*罗伯特·威尔逊v2004年2月18日*）
|
|
|
黄体脂酮素
|
（圣人）
条款=[]
p=2
对于范围（1，最大值+1）内的n：
如果（p-10）%n==0：术语.append（n）
p=下一素数（p）
退货条件
（PARI）n=0；对于素数（p=2，1e9，如果（Mod（p，n++）==10，打印1（n“，”））\\查尔斯·格里特豪斯四世2015年4月29日
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
1, 3, 17, 443, 2701, 100365, 637235, 637325, 4124455, 4124473, 4124587, 27067125, 27067137, 27067521, 8179002131, 8179002135, 8179002153, 55762149069, 382465573521, 6201265271239145, 6201265271240411, 43525513764814933, 43525513764815131, 43525513764816415
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
链接
|
|
|
|
数学
|
p＝1；Do[If[Mod[p=NextPrime[p]，n]==8，Print[n]]，{n，1，10^9}](*罗伯特·威尔逊v2004年2月18日*）
|
|
|
黄体脂酮素
|
（圣人）
条款=[]
p=2
对于范围（1，最大值+1）内的n：
如果（p-8）%n==0：术语.append（n）
p=下一素数（p）
退货条款
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
1, 2, 4, 7, 8, 31, 32, 34, 74, 76, 1052, 6455, 15928, 251707, 251765, 4124458, 27067012, 27067120, 69709718, 69709871, 69709877, 69709934, 69709943, 69709954, 69709963, 69709964, 465769810, 8179002124, 145935689390, 382465573486, 885992692751818, 885992692751822
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
链接
|
|
|
|
例子
|
204475053103=素数（8179002124）和204475053103=25*8179002124+3。
|
|
|
数学
|
NextPrim[n_]：=块[{k=n+1}，While[！PrimeQ[k]，k++]；k] ；p＝1；Do[If[Mod[p=NextPrim[p]，n]==3，Print[n]]，{n，1，10^9}](*罗伯特·威尔逊v2004年2月18日*）
选择[Range[100000]，Mod[Prime[#]-3，#]==0&](*T.D.诺伊2013年2月5日*）
|
|
|
黄体脂酮素
|
（圣人）
条款=[]
p=2
对于范围（1，最大值+1）内的n：
如果（p-3）%n==0：术语.append（n）
p=下一素数（p）
退货条款
|
|
|
交叉参考
|
囊性纤维变性。A171430号,A092045号,A023143号,A023144号,A023146号,A023147号,A023148号,A023149号,A023150型,A023151号,A023152美元。
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
1, 75, 77, 637331, 637333, 637341, 637343, 27067053, 179992917, 8179002205, 2636913002917, 6201265271239157, 6201265271239347, 6201265271239413, 6201265271239981, 6201265271240331, 6201265271240341, 2159986889494445405, 2159986889494445525, 2159986889494445615
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
链接
|
|
|
|
例子
|
第75素数是379，379==4（mod 75）。因此，序列中有75个。
第76素数是383，但383==3，而不是4（mod 76）。所以76不在序列中。
|
|
|
数学
|
nextPrime[n_]：=块[{k=n+1}，While[！PrimeQ[k]，k++]；k] ；p＝1；执行[If[Mod[p=nextTime[p]，n]==4，Print[n]]，｛n，1，10^9｝](*罗伯特·威尔逊v2004年2月18日*）
选择[Range[1000]，Mod[Prime[#]，#]==4&](*阿隆索·德尔·阿特2018年11月16日*）
|
|
|
黄体脂酮素
|
（圣人）
条款=[]
p=2
对于范围（1，最大值+1）内的n：
如果（p-4）%n==0：术语.append（n）
p=下一素数（p）
退货条款
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
1、2、3、9、16、33、40073、40078、40082、40083、40122、251721、251722、251734、251736、4124584、10553433、10553439、10553444、10553454、10553478、10553552、10553553、10553818、27067098、27067524、179992912、465769814、465769832、465769839
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
链接
|
|
|
|
数学
|
p＝1；Do[If[Mod[p=NextPrime[p]，n]==5，Print[n]]，{n，1，10^9}](*罗伯特·威尔逊v2004年2月18日*）
|
|
|
交叉参考
|
囊性纤维变性。A171432号,A092047号,A023143号,A023144号,A023145号,A023146号,A023148号,A023149号,A023150型,A023151号,A023152号。
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
1、2、4、6、18、36、78、191、6456、6457、40080、40081、637324、637326、637344、10553425、10553434、10553477、10553502、10553573、10553854、27066988、27067126、69709680、69709736、69709940、465769818、3140421716、3140421740、3140421743
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
链接
|
|
|
|
数学
|
p＝1；Do[If[Mod[p=NextPrime[p]，n]==7，Print[n]]，{n，1，10^9}](*罗伯特·威尔逊v2004年2月18日*）
|
|
|
黄体脂酮素
|
（圣人）
条款=[]
p=2
对于范围（1，max+1）中的n：
如果（p-7）%n==0：术语.append（n）
p=下一素数（p）
退货条款
|
|
|
交叉参考
|
囊性纤维变性。A171434号,A092049号,A023143号,A023144美元,A023145号,A023146号,A023147号,A023148号,A023150型,A023151号,A023152号。
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
| |
|
|
|
1, 5, 79, 445, 16055, 27067045, 1208198549, 1208198609, 1208198615, 2636913002983, 885992692751479, 885992692751483, 885992692751833, 43525513764815035, 43525513764815057, 43525513764815173, 43525513764816367
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
|
|
|
链接
|
|
|
|
数学
|
NextPrim[n_]：=块[｛k=n+1}，While[！PrimeQ[k]，k++]；k] ；p＝1；Do[If[Mod[p=NextPrim[p]，n]==6，Print[n]]，{n，1，10^9}](*罗伯特·威尔逊v2004年2月18日*）
|
|
|
黄体脂酮素
|
（圣人）
条款=[]
p=2
对于范围（1，最大值+1）内的n：
如果（p-6）%n==0：术语.append（n）
p=下一素数（p）
退货条款
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,更多
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.010秒内完成
|
