%I#6 2023年7月19日20:29:56
%编号:1,2212211333111212131114441114131331212222333222,
%电话:41111555511111111121231121121333214441212212213322244,
%电话:233313221111133122442225111111666611111111111111241112113
%N LookAndSay(N)是回文。
%e LookAndSay(112)=2112(两个1,一个2),一个回文,所以22属于序列。
%t RunLengthEncode[x_List]:=(通过[{First,Length}[#1]]&)/@Split[x];Do[a=展平[RunLengthEncode[IntegerDigits[n]]];如果[a==反转[a],打印[n]],{n,1,10^6}]
%Y与A079466不同。
%K基,nonn
%O 1,2号机组
%A _Joseph L.Pe,2003年1月26日
%E更多条款摘自2003年1月27日的_Robert G.Wilson v_
|