%我

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

%T 1,4,1,2,1,3,1,2,1,4,1,1,2,1,3,1,2,1,4,1,2,2,1,3,1,2,1,4,1,2,1,1,2，

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

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

%cSquareFree表示该词不包含连续的相同子词。

%H Clark Kimberling，<a href=“/A225743/b225743.txt”>n，a（n）表，n=1..10000</a>

%e前10行如下所示：

%e 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 squareFreeQ[string_2;]：=StringFreeQ[string，a_u2; ~a_u]；t={}；s=表格[AppendTo[t，NestWhile[#+1&，1！squareFreeQ[ToString[FromDigits[Append[t，#]]]&]]，{20}]；

%t表格格式[s]（*A225743数组*）

%t展平[s]（*A225743序列*）

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

%t（*u彼得J。C。摩西，2013年9月3日*）

%Y Cf.A001511（限制顺序）

%不，表，简单

%O 1,3号

%阿尤克拉克金伯利，2013年9月3日