|
|
|
|
|
|
|
|
|
#17通过T.D.诺伊2013年6月14日星期五13:22:44 EDT |
|
|
|
|
|
|
|
#16通过杰弗里·克雷策2013年6月13日星期四22:29:48 EDT |
|
|
|
|
|
|
|
#15个通过杰弗里·克雷策2013年6月13日星期四21:09:41 EDT |
|
| 数学
|
（*低效暴力计数*）f[list_]：=扁平[Table[Position[list，n]，{n，1，Length[list]}]；表[Table[Length[Select[Map[Runs，Map[f，Strings[Range[n]，n]]]，Length[#]==k&]]，{k，1，n}]，{n，1，5}]//网格[From杰弗里·克雷策2010年5月19日]
(*或 许多的 更快*)表[表[Eulerian[n，k]二项式[n+k，n]，{k，0，n-1}]，{n，1，10}] (* _杰弗里 Critzer（标准器）_,六月 13 2013*)
10}] (*杰弗里·克雷策2013年6月13日*）
|
|
| 状态
|
提出
编辑
|
|
|
|
|
|
|
#14通过杰弗里·克雷策2013年6月13日星期四21:01:37 EDT |
|
|
|
|
|
|
|
#13通过杰弗里·克雷策2013年6月13日星期四21:00:50 EDT |
|
| 数学
|
(*效率低下的 残忍的 力 计数*)f[list_]：=扁平[Table[Position[list，n]，{n，1，Length[list]}]]；表[Table[Length[Select[Map[Runs，Map[f，Strings[Range[n]，n]]]，长度[#]==k&]]，{k，1，n}]，{n，1，75}]//网格[自杰弗里·克雷策2010年5月19日]
（*或更快*）表[表[Eulerian[n，k]二项式[n+k，n]，{k，0，n-1}]，{n，1，
10}] (*杰弗里·克雷策2013年6月13日*）
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
|
#12通过R.J.马塔尔2013年3月22日星期五美国东部夏令时18:10:16 |
|
|
|
|
|
|
|
#11通过R.J.马塔尔2013年3月22日星期五美国东部夏令时18:10:07 |
|
|
|
|
|
|
|
#10通过R.J.马塔尔2013年3月22日星期五18:09:35 EDT |
|
| 例子
|
1; 1,3; 1,16,10; 1,55,165,35; 1,156,1386,1456,126; ...
1;
1,3;
1,16,10;
1,55,165,35;
1,156,1386,1456,126;
...
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
|
#9通过俄罗斯考克斯2012年3月31日星期六13:23:36 EDT |
|
| 作者
|
阿尔福德·阿诺德（Alford1940（AT）aol.com）
阿尔福德·阿诺德
|
|
|
|
|
讨论
|
| 3月31日星期六
| 13:23
| OEIS服务器: https://oeis.org/edit/global/889
|
|
|
|
|
|
|
#8通过俄罗斯考克斯美国东部时间2012年3月30日星期五17:35:47 |
|
| 扩展
|
来自的更多条款 _Emeric Deutsch公司(德国(自动变速箱)公爵.聚.教育部),_,2004年5月8日
|
|
|
|
|
讨论
|
| 3月30日星期五
| 17:35
| OEIS服务器: https://oeis.org/edit/global/173
|
|
|
|
|
|
