登录
OEIS由
OEIS基金会的许多慷慨捐赠者
.
提示
(来自的问候
整数序列在线百科全书
!)
A303435型
使uphi(n)(酉totiten函数)
A047994号
)是n的幺正除数的幂(
A034444号
).
0
1, 2, 3, 5, 9, 10, 17, 30, 34, 85, 170, 257, 514, 765, 1285, 1542, 4369, 8738, 39321, 65537, 131070, 131074, 327685, 655370, 1114129, 2949165, 3342387, 16843009, 33686018, 100271610, 151587081, 572662306, 2863311530
(
列表
;
图表
;
参考文献
;
听
;
历史
;
文本
;
内部格式
)
抵消
1,2
评论
统一版本的
A289276号
.
自
A034444号
(n) =2^omega(n)是2的幂,所有项都是2和Fermat素数的乘积(
A019434号
),每个重数都小于2,但3可能重数为2(因为3^2=2^3+1)。
如果没有第六个费马素数,那么这个序列是有33个项的有限序列。
链接
n=1..33时的n,a(n)表。
例子
2863311530=2*5*17*257*65537在序列中,因为它有2^5个幺正除数,它的uphi值是2^30=(2^5)^6。
数学
uphi[n_]:=如果[n==1,1,(倍@@(表[#[1]]^#[2]]-1,{1}]&/@FactorInteger[n])[[1]]];
aQ[n]:=如果[n==1,True,IntegerQ[Log[2],uphi[n]]/PrimeNu[n]]];
v=并集[Times@@@Rest[Subsets[{1,2,3,5,17,257,65537}]];
w=联合[v,3*v];
s={};
做[w1=w[[k]];
如果[aQ[w1],AppendTo[s,w1]],{k,1,Length[w]}];
秒
交叉参考
囊性纤维变性。
A019434号
,
A034444号
,
A047994号
,
A092506号
,
A289276号
.
上下文中的序列:
A057254号
A057242号
1973年
*
A090845号
A262990型
A058108号
相邻序列:
A303432型
A303433型
A303434型
*
A303436型
A303437型
A303438型
关键词
非n
作者
阿米拉姆·埃尔达尔
2018年4月24日
状态
经核准的