|
| |
|
| A330927飞机 |
| 数字k，这样k和k+1都是Niven数。 |
|
31
|
|
|
|
1, 2, 3, 4, 5, 6, 7, 8, 9, 20, 80, 110, 111, 132, 152, 200, 209, 224, 399, 407, 440, 480, 510, 511, 512, 629, 644, 735, 800, 803, 935, 999, 1010, 1011, 1014, 1015, 1016, 1100, 1140, 1160, 1232, 1274, 1304, 1386, 1416, 1455, 1520, 1547, 1651, 1679, 1728, 1853
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
库珀和肯尼迪证明了连续20个Niven数的无穷多次运行。因此，这个序列是无限的。
|
|
|
参考文献
|
Jean-Marie De Koninck，《那些迷人的数字》，美国数学学会，2009年，第36页，第110条。
|
|
|
链接
|
柯蒂斯·库珀和罗伯特·肯尼迪，关于连续Niven数《斐波纳契季刊》，第21卷，第2期（1993年），第146-151页。
海伦·G·格兰德曼，连续Niven数序列《斐波纳契季刊》，第32卷，第2期（1994年），第174-175页。
|
|
|
例子
|
1是一个项，因为1和1+1=2都是Niven数。
|
|
|
数学
|
nivenQ[n_]：=可除数[n，整数位数的总数[n]]；nq1=nivenQ[1]；序列={}；Do[nq2=nivenQ[k]；如果[nq1&&nq2，AppendTo[seq，k-1]]；nq1=nq2，{k，22000}]；序列
SequencePosition[Table[If[Divisible[n，Total[Integer Digits[n]]]，1，0]，{n，2000}]，{1，1}][[；；，1]](*哈维·P·戴尔2023年12月24日*）
|
|
|
黄体脂酮素
|
（岩浆）f:=func<n|n mod&+Intseq（n）eq 0>；a： =[]；对于[1..2000]中的k，如果对[0..1]|f（k+m）}中的所有{m:m执行，则追加（~a，k）；结束条件：；结束；a//马吕斯·A·伯蒂2020年1月3日
（Python）
从itertools导入计数，islice
def agen（）：#术语生成器
h1，h2=1，2
为True时：
如果h2-h1==1：则产生h1
h1，h2=h2，next（k代表计数中的k（h2+1），如果k%sum（map（int，str（k）））==0）
打印（列表（islice（agen（），52））#迈克尔·布拉尼基2024年3月17日
|
|
|
交叉参考
|
囊性纤维变性。A005349号,A060159号,A141769号,A154701号,A328205型,A328209型,A328213型,A330713型,A330928型,A330929型,A330930型,A330931型.
|
|
|
关键词
|
非n,基础
|
|
|
作者
|
|
|
|
状态
|
已批准
|
| |
|
|
