OFFSET
1,1
COMMENTS
For constant c=1.240554576397679299452... see A144810.
MATHEMATICA
a = {}; k = 2; Do[AppendTo[a, k]; k = k^3 - k + 1, {n, 1, 8}]; a (*Artur Jasinski*)
NestList[#^3-#+1&, 2, 5] (* Harvey P. Dale, Jun 24 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Sep 22 2008
STATUS
approved