login
A192678
Floor-Sqrt transform of idempotent endomap numbers (A000248).
0
1, 1, 1, 3, 6, 14, 32, 79, 203, 541, 1495, 4267, 12543, 37902, 117519, 373236, 1212418, 4023007, 13619993, 46998318, 165144243, 590411905, 2145978422, 7924484313, 29710783080, 113031311232, 436102652463, 1705552475812, 6758097531570, 27119230158894
OFFSET
0,4
FORMULA
a(n) = floor(sqrt(A000248(n))).
MATHEMATICA
FSFromExpSeries[f_, x_, n_] := Map[Floor[Sqrt[#]]&, CoefficientList[Series[f, {x, 0, n}], x]Table[k!, {k, 0, n}]]
FSFromExpSeries[Exp[x Exp[x]], x, 40]
CROSSREFS
Sequence in context: A182905 A373456 A330053 * A114945 A003477 A368983
KEYWORD
nonn
AUTHOR
Emanuele Munarini, Jul 07 2011
STATUS
approved