|
| |
|
| A184792号 |
| 数字k，使楼层（k*r）为素数，其中r=黄金比率=（1+sqrt（5））/2。 |
|
5
|
|
|
|
2, 7, 11, 12, 18, 23, 27, 33, 37, 38, 42, 44, 49, 60, 63, 64, 70, 79, 81, 85, 86, 101, 107, 111, 112, 122, 123, 131, 138, 142, 148, 149, 159, 163, 168, 174, 175, 190, 194, 196, 205, 215, 216, 222, 227, 231, 237, 241, 248, 253, 259, 268, 274, 278, 283, 285, 289, 301, 304, 309, 311, 315, 322, 348, 352, 353, 357, 363, 367, 372, 379, 383, 390, 398, 400, 404, 409, 416, 419, 457, 468, 478, 487, 493, 500, 508, 509, 519, 530, 531, 545, 546, 561, 568, 582, 589, 598
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
链接
|
|
|
|
例子
|
序列L（n）=楼层（n*r）从开始
1,3,4,6,8,9,11,12,14,16,17,...,
其中包括素数L（2）=3，L（7）=11，。。。
|
|
|
数学
|
r=（1+5^（1/2））/2；s=r/（r-1）；
表[a[n]，{n，1，120}]
t1={}；Do[If[PrimeQ[a[n]]，AppendTo[t1，a[n]]]，{n，1600}]；t1时间
t2={}；Do[If[PrimeQ[a[n]]，AppendTo[t2，n]，{n，1，600}]；t2时间
t3＝{}；Do[If[MemberQ[t1，Prime[n]]，AppendTo[t3，n]]；t3（第三节）
t4={}；Do[If[PrimeQ[b[n]]，AppendTo[t4，b[n]]，{n，1600}]；第4节
t5={}；Do[If[PrimeQ[b[n]]，AppendTo[t5，n]，{n，1600}]；第5节
t6={}；Do[If[MemberQ[t4，Prime[n]]，AppendTo[t6，n]]，｛n，1300｝]；t6（第6页）
（*列表t1、t2、t3、t4、t5、t6与序列匹配
选择[Range[600]，PrimeQ[Floor[GoldenRatio#]]&](*哈维·P·戴尔2024年3月28日*）
|
|
|
交叉参考
|
|
|
|
关键字
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
