|
|
A192673
|
|
Floor-Sqrt transform of large Schroder numbers (A006318).
|
|
0
|
|
|
1, 1, 2, 4, 9, 19, 42, 92, 203, 453, 1018, 2300, 5224, 11919, 27301, 62750, 144662, 334392, 774802, 1799089, 4185524, 9754468, 22769099, 53225213, 124585182, 291975928, 685044632, 1608962053, 3782645385, 8901012965, 20962890607, 49409138924, 116543063346, 275086432485
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
a(n) = floor(sqrt(largeSchroder(n))).
|
|
MATHEMATICA
|
FSFromSeries[f_, x_, n_] := Map[Floor[Sqrt[#]]&, CoefficientList[Series[f, {x, 0, n}], x]]
FSFromSeries[(1-x-Sqrt[1-6x+x^2])/(2x), x, 100]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|