A066522-OEIS公司

A066522号

除数小于或等于sqrt（n）的数字n是连续的，从1到某个数字k。

1, 2, 3, 4, 5, 6, 7, 8, 10, 11, 12, 13, 14, 17, 18, 19, 22, 23, 24, 26, 29, 31, 34, 37, 38, 41, 43, 46, 47, 53, 58, 59, 60, 61, 62, 67, 71, 73, 74, 79, 82, 83, 86, 89, 94, 97, 101, 103, 106, 107, 109, 113, 118, 122, 127, 131, 134, 137, 139, 142, 146, 149, 151, 157 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,2`
	评论	序列由p或2p形式的所有数字和p素数以及1、8、12、18、24和60组成。证明草图：如果k<=2，则n=1或8或p或2p。如果k>2，则为数字k+1。。。，k+4==2（mod 4）；称之为m。那么m/2是一个奇数<=k，所以m=2*（m/2）除以n。因为m不在1,2，…之间，。。。，k、它必须大于sqrt（n），所以sqrt（n）<m<=k+4。此外，n可以被所有小于等于k的正整数整除，包括k、k-1和k-2，它们的最小公倍数是它们除以1或2的乘积。因此n>=k（k-1）（k-2）/2。组合这些不等式意味着k≤7和n≤120。 `将定义更改为使用“小于sqrt（n）”不会更改顺序-斯图尔特·戈登2011年9月27日`
	链接	`哈里·史密斯，n=1..1000时的n，a（n）表` `J.G.van der Galien，科学的黎明.`
	例子	`60 = 160 = 230 = 320 = 415 = 512 = 610.`
	数学	`test[n_]：=模块[｛｝，d=除数[n]；d=取[d，天花板[长度[d]/2]]；Last[d]==长度[d]]；选择[范围[1，200]，测试]` `cdQ[n_]：=模块[{d=Union[Differences[Select[Divisors[n]，#<=Sqrt[n]&]]}，d=={}\|\|d==}1}]；选择[范围[200]，cdQ](哈维·P·戴尔2017年2月12日）`
	黄体脂酮素	`（PARI）{n=0；对于（m=1，10^10，d=除数（m）；b=1；对于（i=2，ceil（长度（d）/2），如果（d[i]-d[i-1]>1，b=0；中断））；如果（b，写（“b066522.txt”，n++，“”，m）；如果\\哈里·史密斯2010年2月21日` `（哈斯克尔）` `导入数据。列表（genericLength）` `a066522 n=a066522_列表！！（n-1）` `a066522_list=过滤器f[1..]，其中` `f x=genericLength ds=最大ds，其中ds=a161906_row x` `--莱因哈德·祖姆凯勒，2015年6月24日，2011年11月14日`
	交叉参考	`囊性纤维变性。A066664号（复合术语）；A074964号,A000196号.` `囊性纤维变性。A161906号.` `上下文中的序列：A209638型 A191844号 A096157号A193159号 A308018型 224255英镑` `相邻序列：A066519号 A066520号 A066521号A066523号 A066524号 A066525号`
	关键词	`非n,美好的,容易的`
	作者	`Johan G.van der Galien（galien8（AT）zonnet.nl），2002年1月5日`
	扩展	`编辑人迪安·希克森2002年1月7日`
	状态	`经核准的`