%I#11 2017年11月13日00:00:05

%S 23610116212431651738513066371293812341194413614851159452，

%电话72179831518737598877103528126497138190141037148657157994，

%电话：162410175077262788296482299398351226354321418134425099452130465254470494

%N对N进行编号，使sopfr（N）=sopfr。

%H Robert G.Wilson v，n表，n=1..1179的a（n）</a>

%e 610是按照sopfr（608）=29、sopfr[609）=39和sopfr[610]=68=39+29的顺序排列的。

%t f[n_]：=加@@Times@@FactorInteger@n；选择[范围[10^5]，f[#]==f[#-1]+f[#-2]&]

%o（PARI）sopfr（n，f=系数（n））=f[，1]~*f[，2]

%o列表（lim）=我的（v=列表（），a=0，b=2，c）；系数化（k=3，lim\1，c=sopfr（k[2]）；如果（c==a+b，listput（v，k[1]））；a=b；b=c）；Vec（v）\\_Charles R Greathouse IV_，2017年11月12日

%Y参考A001414、A075565。

%K nonn公司

%O 1,1号机组

%2017年11月12日