#来自在线整数序列百科全书的问候!http://oeis.org/搜索:id:a225743显示第1-1页,共1页%一A225743%S A225743 1,1,2,1,2,1,1,2,1,3,1,2,1,3,1,1,1,2,1,3,1,2,1,2,1,2,1,2,1,2,1,2,1,2,%电话:A225743 1,4,1,2,1,3,1,2,1,4,1,1,2,1,3,1,2,1,4,1,2,1,2,1,2,1,2,1,2,1,2,1,2,,%U A225743 1,3,1,2,1,4,1,2,1,3,1,2,1,3,1,2,1,4%nA225743三角形数组:N行是长度为N的最小无平方字,使用正整数。%cA225743 Squarefree表示该词不包含连续的相同子词。%H A225743克拉克金伯利,n=1..10000的n,a(n)表%e A225743前10行如下所示:%邮箱A225743 1%邮箱A225743 12%邮箱A225743 1 2 1%邮箱A225743 1 2 1 3%邮箱A225743 1 2 1 3 1%邮箱A225743 1 2 1 3 1 2%邮箱A225743 1 2 1 1 3 1 2 1%邮箱A225743 1 2 1 3 1 2 1 4%邮箱A225743 1 2 1 1 3 1 2 1 4 1%邮箱A225743 1 2 1 1 3 1 2 1 4 1 2%e A225743 1不包含正方形;11包含正方形,而12不包含正方形;121不包含正方形;1211和1212都有正方形,但1213没有。%t A225743 squareFreeQ[string_914;]:=StringFreeQ[string,a_u200;a_uuq];t={};s=表格[AppendTo[t,NestWhile[#+1&,1!squareFreeQ[ToString[FromDigits[Append[t,#]]]&]],{20}];%t A225743表格(*A225743数组*)%t A225743展平[s](*A225743序列*)%t A225743映射[IntegerExponent[2*#,2]&,Range[Range[33]]](*A225743数组,按公式*)%电话:A225743(*u Peter J。C。摩西,2013年9月3日*)%Y A225743比照A001511(限制顺序)%K A225743不,表,简单%O A225743 1,3%A A225743克拉克金伯利,2013年9月3日#根据OEIS最终用户许可协议提供内容:http://oeis.org/LICENSE