%我#2023年3月27日15时34分29秒
%S 0,1,3,3323125589136872147712160415360069418964451443750859,
%电话:144581278923577810421254646756451542924733291904542477755,
%电话:192548857959196177243545131665448039892716921593835714525637531119453408057764468514019397080882727
%二进制和对偶Zeckendorf表示都是回文的N个数。
%H Chai Wah Wu,n的表格,n=1..29的a(n)</a>
%e3是一个术语,因为它的二进制和对偶Zeckendorf表示都是11,这是回文的。
%e33是一个术语,因为它的二进制表示形式100001和它的对偶Zeckendorf表示形式1010101都是回文的。
%t mirror[dig_,s_]:=连接[dig,s,反向[dig]];
%t select[v_,mid_]:=选择[v,Length[#]==0||最后[#]!=中期&];
%t fib[dig_]:=Plus@@(dig*Fibonacci[Range[2,Length[dig]+1]]);
%t pals=Join[{{}},Rest[Select[IntegerDigits/@FromDigits@@Tuples[{0,1},22],SequenceCount[#,{0,0}]==0&]]];
%t dualZeckPals=Union@Join[{0},fib/@Join[镜像[#,{}]&/@(选择[pals,0]),镜像[#、{0}]//@(选择[pals,0];
%t binPalQ[n_]:=回文Q@整数位数【n,2】;选择[dualZeckPals,binPalQ]
%A006995和A331191的Y交叉口。
%Y参考A095309,A104326。
%K nonn,基础
%氧1,3
%A _Amiram Eldar,2020年1月11日
%E a(18)-a(22),来自恰瓦乌,2020年1月12日
%E a(23)-a(25),来自恰瓦乌,2020年1月13日
|