%I#34 2019年1月19日03:50:13

%S 1,2,2,2,2,2，2-，-1,7，-1,3,7,7，-1，7，-1,1，-1,6，-1,5,7,7,1，-1，-1，-1,8，-1，-16，

%T 8，-1,8,11,8,9,8，-1,1,8,8,11，-1,11,11，-1,11,8，-1，-1,1,11,8，

%U 16，-1,15,10,16，-1，-1,15，14,22,14,17,23,11,15,11,8,12,11,11,16,12,11

%N对于有理数p/q，设f（p/q）=（p+q）/（A000120（p）+A0001200（q））；a（n）是通过迭代f获得的，从n/1开始，直到达到一个整数（然后a（n。

%e 13/1->14/4=7/2->9/4->13/3->16/5->21/3=7，因此a（13）=7。

%e 8/1->9/2->11/3->14/5->19/5->24/5->29/4->33/5->38/4=19/2->21/4->25/4->29%4，5个循环重复，因此a（8）=-1。

%t数组[SelectFirst[Rest@NestWhileList[（#1+#2）/（DigitCount[#1，2，1]+Digit计数[#2，2，1'）&@@{Numerator@#，Denominator@#}&，#，UnnameQ，All]，IntegerQ]/。k_/；MissingQ@k->-1&，79]（*Michael De Vlieger_，2019年1月18日*）

%Y参考A000120、A058971、A059175、A323275、A323375。

%K符号，基础

%O 1,2号机组

%A.提伯·O·齐兹卡，2019年1月18日