login
A088655
a(n) is the absolute value of floor(x^n), where x=E/(2-E) = -3.784422... is derived from E=A001113.
1
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
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
KEYWORD
nonn,easy
AUTHOR
Roger L. Bagula, Nov 21 2003
STATUS
approved