A140715-OEIS公司

A140715号

考虑所有整数k，其中第n个素数<=k<=（n+1）个素数。a（n）是除整数k中的至少两个的最大整数。

1, 1, 1, 2, 1, 2, 1, 2, 4, 1, 4, 2, 1, 2, 4, 3, 1, 3, 2, 1, 3, 2, 4, 6, 2, 1, 2, 1, 2, 9, 2, 4, 1, 7, 1, 4, 3, 2, 4, 3, 1, 7, 1, 2, 1, 10, 6, 2, 1, 2, 3, 1, 5, 4, 3, 4, 1, 4, 2, 1, 5, 9, 2, 1, 2, 11, 4, 5, 1, 2, 3, 6, 4, 3, 2, 4, 6, 2, 6, 5, 1, 5, 1, 3, 2, 4, 6, 2, 1, 2, 9, 6, 2, 6, 2, 4, 10, 1, 15, 3, 5, 3, 4

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,4

链接

哈维·P·戴尔，n=1..1000时的n，a（n）表

例子

第18个素数为61，第19个素数是67。所以我们将考虑整数61、62、63、64、65、66、67。没有大于等于7的整数在此范围内除多个整数，因为该范围仅由7个项组成，末尾的两个项为素数。检查：6除66，但不除此范围内的任何其他整数。5除以65，但不除以此范围内的任何其他整数。4除以64，除此之外什么都没有。另一方面，3除63和66。所以a（18）=3。

MAPLE公司

nodvs:=proc（n，L）局部a，L；a:=0；对于l中的l，如果l mod n=0，则a：=a+1；fi:od：返回（a）；结束时间：A140715号：=程序（n）局部k，a；k：=[seq（i，i=ithprime（n）..ithprice（n+1））]；对于从op（-1，k）到-1的a，如果nodvs（a，k）>=2，那么返回（a）；fi；od：结束：对于n从1到160执行printf（“%d，”，A140715号（n））；日期：#R.J.马塔尔2008年8月8日

数学

lid2[{a_，b_}]：=模块[{r=范围[a，b]}，选择[Table[{n，Count[r/n，_？IntegerQ]}、{n，Length[r]，1，-1}]，#[2]]>1&，1][[1，1]]；lid2/@分区[Prime[Range[110]，2，1](*哈维·P·戴尔2013年6月7日*）

交叉参考

上下文中的序列：A347224型 A339270型 A345226型*A330690型邮编：263143 A197945号

相邻序列：A140712号 A140713号 A140714号*A140716号 A140717号 A140718号

关键词

非n

作者

勒罗伊·奎特2008年7月11日

扩展

延伸超过a（18）R.J.马塔尔2008年8月8日

状态

经核准的