登录
OEIS基金会得到了OEIS用户的捐赠和西蒙斯基金会的资助。

 

标志


提示
(问候来自整数序列在线百科全书!)
A225743号 三角数组:n行是长度为n的最小无平方字,使用正整数。 1

%我

%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日

查找|欢迎光临|维基|登记|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索者|最近
OEIS社区|维护人OEIS基金公司。

许可协议,使用条款,隐私政策。.

上次修改日期:2021年7月24日01:14。包含346265个序列(在oeis4上运行。)