%I#18 2016年12月4日19:46:31

%S 1,1,2,1,2,1,1,2,1,1,3,1,2,1,3,1,1,3,1,1,2,3,1,2,1,2,2,3,1,1,1,2，

%温度1,4,1,2,1,3,1,2,4,1,1,2,1,3,1,2,1,4,1,2,2,1,1,3,12,1,2,1，

%U 1,3,1,2,1,4,1,2,3,1,2,1,2,2,1,4

%N三角形数组：第N行是使用正整数的长度为N的最小平方自由字。

%C Squarefree表示该单词不包含连续的相同子单词。

%H Clark Kimberling，n的表，n的a（n）=1..10000</a>

%e此处显示前10行：

%第1页

%e 1 2

%e 1 2 1

%e 1 2 1 3

%e 1 2 1 3 1

%e 1 2 1 3 1 2

%e 1 2 1 3 1 2 1

%e 1 2 1 3 1 2 1 4

%e 1 2 1 3 1 2 1 4 1

%e 1 2 1 3 1 2 1 4 1 2

%e1不包含正方形；11包含正方形，但12不包含正方形；121不包含正方形；1211和1212都有正方形，但1213没有。

%t平方FreeQ[string_]：=StringFreeQ[字符串，a__~a__]；t={}；s=表[AppendTo[t，NestWhile[#+1&，1，！squareFreeQ[ToString[FromDigits[Append[t，#]]&]]，{20}]；

%t TableForm[s]（*A225743数组*）

%t压扁[s]（*A225743序列*）

%t映射[IntegerExponent[2*#，2]&，Range[Range[33]]]（*A225743数组，按公式*）

%t（*_彼得·莫塞斯，2013年9月3日*）

%Y参考A001511（限制序列）

%K non，tabl，简单

%氧1,3

%A _百灵金伯利，2013年9月3日