编辑

经核准的

s2s1Q[n_]：=模块[{coll=NestWhileList[If[EvenQ[#]，#/2，3#+1]&，n，#>1&]，s1，s2}，s1=Total[Select[coll，OddQ]]；s2=总数[Select[coll，EvenQ]]；整数Q[s2/s1]]；选择[范围[330000]，s2s1Q](*哈维·P·戴尔2024年2月26日*）

经核准的

编辑

提出

经核准的

编辑

提出

（PARI）isok（n）={if（n%2，s1=n；s2=0，s2=n；s1=0）；while（n！=1，if（n%2，n=3*n+1，n/=2）；if（n%2，s1+=n，s2+=n）；）；s2%s1==0；}\\米歇尔·马库斯2016年7月9日

提出

编辑

编辑

提出

让 数字 n个 这样的 那个 s2秒/第1页 是 一个 整数, 哪里 第1页是 奇数和s2的和是 n的Collatz（3x+1）迭代中的偶数之和。 这个 序列 列表 这个 数字 n个 这样的 那个 s2秒/第1页 是 一个 整数.

提出

编辑

编辑

提出

分配 对于 米歇尔 拉尼奥让 第1页 这个 总和 属于 这个 古怪的 数字 和 s2秒 这个 总和 属于 这个 即使 数字 在里面 这个 科拉茨 (3倍+1) 迭代 属于 n个. 这个 序列 列表 这个 数字 n个 这样的 那个 s2秒/第1页 是 一个 整数.

1, 2, 4, 5, 8, 16, 20, 32, 64, 80, 128, 186, 256, 320, 512, 704, 1024, 1280, 1344, 2048, 3808, 4096, 5090, 5120, 6464, 8192, 10152, 15904, 16384, 20480, 21760, 28672, 32768, 34640, 59392, 62132, 65536, 81920, 106496, 131072, 138880, 217824, 262144, 327680

1,2

或数字n，这样A213909型（n）/A213916型（n） 为整数。

2的幂是按顺序排列的，因为s1=1。

对应的整数s2/s1是0、2、6、5、14、30、10、62、126、30、254、6、510、110、1022、34、2046、430、126、4094、14、8190、6、1710、70、16382、14、37、32766、6830、510、1066、65534、26、1567，。。。奇数非常罕见：5、37、1567，。。。

对于m=0.1，…，形式为5*2^2m的数字，。。因为s1=6，s2=（5*（2^（2m+1）-2）+30）==0（mod 6）=>s2/s1是整数。

5在序列中，因为5的Collatz轨迹是5->16->8->4->2->1，其中s1=5+1=6，s2=16+8+4+2=30=>30/6=5是整数。

T： =数组（1..2000）：U：=数组（1.2000）：nn：=350000：

对于从1到nn的n，do：

kk:=1:m:=n:T[kk]：=n:it:=0:

对于i从1到nn，而（m<>1）则：

如果irem（m，2）=0

然后

m： =米/2:kk:=kk+1:T[kk]：=米：

其他的

m： =3*m+1:kk:=kk+1:T[kk]：=m：

图1：

日期：

s1:=0:s2:=0:

对于从1到kk的j，do：

如果irem（T[j]，2）=1

然后

s1：=s1+T[j]：

否则s2:=s2+T[j]：

图1：

日期：

如果s1<>0且楼层（s2/s1）=s2/s1

然后

printf（`%d，`，n）：else fi:

日期：

coll[n_]：=嵌套WhileList[If[EvenQ[#]，#/2，3#+1]&，n，#>1&]；a： =选择[coll[n]，OddQ[#]&]；b： =选择[coll[n]，EvenQ[#]&]；Do[s1=和[a[i]]，{i，1，长度[a]}]；s2=总和[b[j]]，{j，1，长度[b]}]；如果[IntegerQ[s2/s1]，打印[n]]，{n，1，350000}]

囊性纤维变性。A213909型,A213916型.

分配

非n

米歇尔·拉格诺2016年7月7日

经核准的

编辑

分配给Michel Lagneau

分配

经核准的