| 数据
|
0, 1, 13, 17, 189, 205, 257, 273, 3005, 3069, 3277, 3341, 4033, 4097, 4305, 4369, 48061, 48317, 49149, 49405, 52173, 52429, 53261, 53517, 64449, 64705, 65537, 65793, 68561, 68817, 69649, 69905, 768957, 769981, 773309, 774333, 785405, 786429, 789757, 790781, 834509
|
| 数学
|
v={{0,0,00,0},{0,0,0,1},},1,1,0,0{1,1,0,1}};q[n_]:=回文q@FromDigits[Flatten@v[[1+Reverse@Most[Mod[NestWhileList[(#-Mod[#,4])/-4&,n,#!=0 &], 4]]]]]; 选择[范围[0,10^4],q]
|