|
|
A368871
|
|
Number of compositions (ordered partitions) of n into odd parts not greater than sqrt(n).
|
|
0
|
|
|
1, 1, 1, 1, 1, 1, 1, 1, 1, 19, 28, 41, 60, 88, 129, 189, 277, 406, 595, 872, 1278, 1873, 2745, 4023, 5896, 40893, 64208, 100816, 158296, 248548, 390257, 612761, 962125, 1510678, 2371987, 3724369, 5847808, 9181920, 14416967, 22636762, 35543051
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,10
|
|
LINKS
|
|
|
MAPLE
|
b:= proc(n, t) option remember; `if`(n=0, 1, add(
`if`(j::odd, b(n-j, t), 0), j=1..min(n, t)))
end:
a:= n-> b(n, floor(sqrt(n))):
|
|
MATHEMATICA
|
Table[SeriesCoefficient[1/(1 - Sum[Boole[OddQ[k]] x^k, {k, 1, Floor[Sqrt[n]]}]), {x, 0, n}], {n, 0, 40}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|