A088655 a(n) is the absolute value of floor(x^n), where x=E/(2-E) = -3.784422... is derived from E=A001113.

4, 14, 55, 205, 777, 2937, 11118, 42072, 159220, 602554, 2280320, 8629690, 32658395, 123593159, 467728718, 1770083028, 6698741833, 25350868523, 95938394252, 363071406534, 1374015557281, 5199855228676, 19678448512407

Offset

1,1

Links

Table of n, a(n) for n=1..23.

Mathematica

digits=40 a = Table[Floor[Abs[(E/(2-E))^n]], {i, 1, digits}]

Prog

(Maxima) A088655(n) := block(
        abs(floor((%e/(2-%e))^n))
)$
for n : 1 thru 20 do print(A088655(n)) ; /* R. J. Mathar, Feb 23 2012 */

Crossrefs

Sequence in context: A045501 A162481 A280208 * A302288 A149490 A304977

Adjacent sequences: A088652 A088653 A088654 * A088656 A088657 A088658

Keyword

nonn,easy

Author

Roger L. Bagula, Nov 21 2003

Status

approved