A334899-OEIS公司

A334899飞机

双重实数(A334898飞机)不是指数奇数(268335元).

48, 72, 192, 240, 288, 320, 336, 360, 432, 448, 504, 528, 600, 624, 648, 768, 792, 800, 810, 816, 912, 936, 960, 1050, 1104, 1134, 1152, 1176, 1200, 1224, 1280, 1296, 1344, 1350, 1368, 1392, 1400, 1440, 1470, 1488, 1568, 1650, 1656, 1680, 1728, 1776, 1782, 1792 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,1`
	评论	`实际数字(A005153号)指数奇的(268335元)也是双美国实用数字(A334898飞机)，因为他们所有的除数都是双重的。` `在最初的2500个双政要实际数字中，只有847个在这个序列中。`
	链接	`阿米拉姆·埃尔达尔，n=1..850时的n，a（n）表`
	数学	双单位除数Q[div_，n_]：=如果[Mod[#2，#1]==0，Last@Apply[Intersection，Map[Select[Divisors[#]，Function[d，CoprimQ[d，#/d]]&，{#1，#2/#1}]==1，False]&@@{div，n}；bdivs[n_]：=模[{d=Divisors[n]}，选择[d，biunitaryDivisorQ[#，n]&]]；bPracQ[n_]：=模块[{d=bdivs[n]，sd，x}，sd=Plus@@d；最小@系数列表[系列[产品[1+x^d[[i]]，{i，长度[d]}]，{x，0，sd}]，x]>0]；expOddQ[n_]：=AllTrue[Last/@FactorInteger[n]，OddQ]；选择[范围[1000]！expOddQ[#]和&bPracQ[#]&]
	交叉参考	`囊性纤维变性。A005153号,268335元,A287173号,A334898飞机,A334902型.` `上下文中的序列：A124309号 A112058号 A033821号A165039号 2011年2月21日 A057533号` `相邻序列：A334896飞机 A334897飞机 A334898飞机A334900型 A334901型 A334902型`
	关键词	`非n`
	作者	`阿米拉姆·埃尔达尔2020年5月16日`
	状态	`经核准的`