OFFSET
1,3
COMMENTS
k = 7, 8, 15, 16, 23, ... A047521(n+1) for n = 1, 2, 3, 4, 5, ... .
LINKS
Wikipedia, Partition of a set
EXAMPLE
a(1) = 1: 16|25|34|7 with k = 7.
a(2) = 1: 18|27|36|45 with k = 8.
MAPLE
b:= proc() option remember; local i, j, t; `if`(args[1]=0,
`if`(nargs=2, 1, b(args[t] $t=2..nargs)), add(
`if`(args[j] -args[nargs]<0, 0, b(sort([seq(args[i]-
`if`(i=j, args[nargs], 0), i=1..nargs-1)])[],
args[nargs]-1)), j=1..nargs-1))
end:
a:= proc(n) option remember; (k-> (m->
b((m/4)$4, k)/24)(k*(k+1)/2))(4*n+3/2*(1-(-1)^n))
end:
seq(a(n), n=1..8);
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Aug 07 2018
STATUS
approved