A317807-OEIS公司

A317807飞机

将[k]划分为5个具有相等元素和的块的集合分区数，其中k是允许这种分区的第n个正整数。

1, 1, 68, 187, 27763, 108516, 25958279, 100664383, 26388943467, 109026138857, 33100108402861, 139752234469078, 46498731704890104, 200612215343574676, 71799817534098086846, 314741192906319529056

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,3

k=9、10、14、15、19。。。A047208号（n+3）对于n=1、2、3、4、5。

链接

n=1..16时的n，a（n）表。

维基百科，集合的分区

配方奶粉

a（n）=A275714型(A047208号（n+3），5）。

例子

a（1）=1:18|27|36|45|9，k=9。

a（2）=1:1（10）|29|38|47|56，k=10。

MAPLE公司

b： =proc（）选项记住；局部i，j，t`如果`（args[1]=0，

`如果`（nargs=2，1，b（args[t]$t=2..nargs）），则添加(

`如果`（args[j]-args[nargs]<0，0，b（排序（[seq（args[1]-

`如果`（i=j，args[nargs]，0），i=1..nargs-1）]）[]，

args[nargs]-1）），j=1..nargs-1））

结束时间：

a： =proc（n）选项记忆；（k->（m->

b（（m/5）$5k）/5！）（k*（k+1）/2））（5+5*n/2+3/4*（1-（-1）^n））

结束时间：

seq（a（n），n=1..8）；

数学

b[args_List]：=b[args]=模块[{nargs=Length[args]}，如果[args[[1]]==0，如果[nargs==3，1，b[args//Rest]]，总和[If[args[[j]]-最后的[args]<0，0，b[Append[Sort[Flatten[Table[args[[i]]-如果[i==j，最后的[ars]，0]，{i，1，nargs-1}]]，最后的[args]-1]]，{j，1，nargs-1}]]]；

a[n_]：=a[n]=函数[k，函数[m，b[Append[Table[m/5，{5}]，k]]/5！][k（k+1）/2][5+5n/2+（3/4）（1-（-1）^n）]；

表[打印[n，“”，a[n]]；a[n]，{n，1，12}](*Jean-François Alcover公司2020年12月16日之后阿洛伊斯·海因茨*)

交叉参考

囊性纤维变性。A047208号,A275714型.

上下文中的序列：A256023型 444400元 A044781号*A292344型 A189810号 A200198型

相邻序列：A317804型 A317805型 A317806型*A317808型 A317809型 A317810型

关键词

非n

作者

阿洛伊斯·海因茨，2018年8月7日

状态

经核准的