OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A307824型 增广差都相等的整数分区的Heinz数。 16
1, 2, 3, 4, 5, 7, 8, 11, 13, 15, 16, 17, 19, 23, 29, 31, 32, 37, 41, 43, 47, 53, 55, 59, 61, 64, 67, 71, 73, 79, 83, 89, 97, 101, 103, 105, 107, 109, 113, 119, 127, 128, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,2
评论
整数分区的Heinz数(y_1,…,y_k)是素数(y_1)**质数(yk)。
长度为k的整数分区y的增广差aug(y)由aug(y)_i=y_i-y_{i+1}+1给出,如果i<k且aug(γ)_k=y_k。例如,aug(6,5,3,3,3)=(2,1,3,1,3)。
这些分区的总和枚举如下所示A129654号.
链接
例子
术语序列及其基本指数开始于:
1: {}
2: {1}
3: {2}
4: {1,1}
5: {3}
7:{4}
8: {1,1,1}
11: {5}
13: {6}
15: {2,3}
16: {1,1,1,1}
17: {7}
19: {8}
23: {9}
29: {10}
31: {11}
32: {1,1,1,1,1}
37: {12}
41: {13}
43: {14}
数学
primeptn[n_]:=如果[n==1,{},Reverse[Flatten[Cases[FactorInteger[n],{p_,k_}:>表[PrimePi[p],{k}]]];
aug[y_]:=表[If[i<长度[y],y[[i]]-y[i+1]]+1,y[i]],{i,长度[y]}];
选择[Range[100],和@@Table[SameQ@@Differences[aug[primeptn[#]],k],{k,0,PrimeOmega[#]}]&]
交叉参考
关键词
非n
作者
古斯·怀斯曼2019年5月3日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年5月23日18:59。包含372765个序列。(在oeis4上运行。)