登录
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提供)
例子
a(5)=6,因为6是A010846号.第一个记录值在位置1设置为1;第二个是2,设置在位置2,第三个是3,设置在位置4,第四个是5,设置在位置6。顺序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号.
关键词
非n
作者
迈克尔·德弗利格2014年6月18日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|Demos公司|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|转换|超级搜索|最近
OEIS社区|维护人员OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年3月28日14:38。包含371254个序列。(在oeis4上运行。)