%I#8 2013年5月19日00:10:54

%S 1,3,5,33,60245304372126515681756179918562409253229763100，

%电话：3281337633943813563759726147653872137299789696796668371，

%电话：1041911526134113856168150241528315709165061657716916192121982921372

%N对N进行编号，使N的Collatz（3x+1）迭代中的数字之和是一个完美的平方。

%H Donovan Johnson，<a href=“/A225866/b225866.txt”>n，a（n）表，n=1..1000</a>

%e 60在序列中是因为60+30+15+46+23+70+35+106+53+160+80+40+20+10+5+16+8+4+2=1=784=28^2。

%t collatz[n_]：=NestWhileList[If[EvenQ[#]，#/2，3#+1]&，n，#>1&]；选择[Range[22000]，IntegerQ[Sqrt[Total[collatz[#]]]&]

%Y参考A033493。

%K nonn公司

%O 1、2

%2013年5月18日，A _米歇尔·拉格瑙