登录
OEIS由
OEIS基金会的许多慷慨捐赠者
.
提示
(来自的问候
整数序列在线百科全书
!)
A244053号
让我来=
A244052型
(n) =第n个高度正则数;
a(n)=数r<=m的个数,其素数p也除以m。
三
1, 2, 3, 5, 6, 8, 10, 11, 18, 19, 26, 28, 32, 36, 41, 44, 68, 77, 80, 96, 115, 131, 145, 156, 166, 174, 183, 192, 283, 295, 313, 322, 382, 395, 452, 463, 505, 519, 551, 567, 593, 629, 660, 691, 717, 743, 766, 1161, 1224, 1253, 1257, 1285, 1306, 1526
(
列表
;
图表
;
参考
;
听
;
历史
;
文本
;
内部格式
)
抵消
1,2
评论
类似于
A002183号
.
记录转换
A010846号
. -
迈克尔·德弗利格
2017年3月8日
链接
迈克尔·德弗利格(Michael De Vlieger)和大卫·A·科内斯(David A.Corneth),
n=1..563时的n,a(n)表
(第55-149条,由David A.Corneth提供)
迈克尔·德弗利格,
A244052的素数分解中素数的倍数和A244053的值。
例子
a(5)=6,因为6是
A010846号
.第一个记录值在位置1设置为1;
第二个在位置2处设置2个,第三个在位置4处设置3个,第四个在位置6处设置5个。
序列
A244052型
记录这些记录值的位置。
数学
a010846[n_]:=块[{pf,a},a[x_]:=First/@FactorInteger@x;
pf=a@n;
如果[n==1,1,1+Count[Range@n,_?(子集Q[pf,a@#]&)]];
f[n_]:=块[{t={},max=0,x},Do[If[(x=a010846@i)>最大,max=x;附加到[t,a010846[i]]],{i,n}];
t] ;
f@1000(*
迈克尔·德弗利格
2015年2月10日*)
Union@Rest@FoldList[Max,0,Array[Count[Range@#,k_/;PowerMod[#,Floor@Log2@#,k]==0]&,10^3]](*最简单,或*)
f[n_]:=如果[n==1,1,Length@Function[w,ToExpression@StringJoin[“Module[{n=”,ToString@n,“,k=0},Flatten@Table[k++,”,Most@Flatten@Map[{#,“,”}&,#],“]]”]&@MapIndexed[Function[p,StringJoing[“{”,To字符串@Last@p,“,0,Log[”,ToString@First@p,”,n/(“,ToString@InputForm[Times@@Map[Power@@#&,Take[w,第一个@#2-1]
]],“)]}”]]@w[[First@#2]]&,w]]@Map[{#,ToExpression[“p”<>ToString@PrimePi@#]}&,FactorInteger[n][All,1]]]];
Union@Rest@FoldList[Max,0,Array[f,10^4]](*
迈克尔·德弗利格
,2017年3月8日,更高效*)
交叉参考
囊性纤维变性。
A244052型
,
A002183号
,
A010846号
.
上下文中的序列:
A005243号
A117045号
A324793飞机
*
A275833型
A307113型
A341157型
相邻序列:
A244050型
A244051型
A244052型
*
A244054型
A244055型
A244056号
关键词
非n
作者
迈克尔·德弗利格
2014年6月18日
状态
经核准的
查找
|
欢迎光临
|
维基
|
注册
|
音乐
|
地块2
|
Demos公司
|
索引
|
浏览
|
网络摄像头
贡献新序列。
或评论
|
格式
|
样式表
|
变换
|
超级搜索
|
最近
OEIS社区
|
维护人员
OEIS基金会。
许可协议、使用条款、隐私政策。
.
上次修改时间:2024年9月20日14:52 EDT。
包含376072个序列。
(在oeis4上运行。)