A139711-OEIS公司

A139711号

对k进行编号，使（k的最大除数<=sqrt（k））和（k的最小除数>=sqrt（k）的和为偶数。

1, 3, 4, 5, 7, 8, 9, 11, 13, 15, 16, 17, 19, 21, 23, 24, 25, 27, 29, 31, 32, 33, 35, 36, 37, 39, 41, 43, 45, 47, 48, 49, 51, 53, 55, 57, 59, 60, 61, 63, 64, 65, 67, 69, 71, 73, 75, 77, 79, 80, 81, 83, 85, 87, 89, 91, 93, 95, 96, 97, 99, 100, 101, 103, 105, 107, 109, 111, 112 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,2`
	评论	`所有奇数正整数和所有完美平方都包含在这个序列中。` `A139710号包含不在此序列中的所有正整数，反之亦然。`
	链接	`哈维·P·戴尔，n=1..1000时的n，a（n）表`
	公式	`{克：A000035号(A033676号（k）+A033677号（k））＝0｝-R.J.马塔尔2008年5月11日`
	例子	`24的除数是1,2,3,4,6,8,12,24。中间的两个除数是4和6。这些的总和是10，这是偶数。因此序列中包含24个。`
	MAPLE公司	`A033676号：=程序（n）局部d；对于从地板（sqrt（n））到1乘-1的d，如果n mod d=0，则返回（d）；fi；od：结束：A033677号：=程序（n）n/A033676号（n）；结束：isA139711：=进程（n）返回（(A033676号（n）+A033677号（n））模块2=0）；结束：对于从1到300的n，如果是A139711（n），则执行printf（“%d，”，n）；fi；日期：#R.J.马塔尔2008年5月11日`
	数学	`evdQ[n_]：=模块[{divs=Divisors[n]，sr=Sqrt[n]}，EvenQ[Max[Select[divs，#<=sr&]]+Min[Select[Civs，#>=sr&]]]；选择[Range[120]，evdQ](哈维·P·戴尔2012年3月5日）` `选择[Range[112]，IntegerQ[Median[Divisors[#]]&](斯特凡诺·斯佩齐亚2023年3月14日）`
	黄体脂酮素	`（PARI）A063655号（n） ={局部（d）；d=除数（n）；d[（长度（d）+1）\2]+d[长度（d）\2+1]}；` `对于（n=1120，如果(A063655美元（n） %2==0，打印1（n，“，”））\\G.C.格鲁贝尔2019年5月31日`
	交叉参考	`囊性纤维变性。A000035号,A033676号,A033677美元,A063655号,A139710号.` `上下文中的序列：A039065型 A247786型 A330565型A354994型 A214585型 A196036号` `相邻序列：A139708号 A139709号 A139710号A139712号 A139713号 A139714号`
	关键字	`非n`
	作者	`勒罗伊·奎特2008年4月30日`
	扩展	`更多术语来自R.J.马塔尔2008年5月11日`
	状态	`经核准的`