A144788 a(n+1) = a(n)^3 - a(n) + 1 with a(1) = 3.

3, 25, 15601, 3797146111201, 54748462363349863789331489199516542401, 164102719777453765093060237305105241279744702931788833463132240094953276902575203916973404664183940277497050364801

Offset: 1

Author

Artur Jasinski, Sep 22 2008

Keywords

• easy
• nonn

Crossrefs

Cf. A000058, A082732, A144779-A144788.

Programs

Mathematica

a = {}; k = 3; Do[AppendTo[a, k]; k = k^3 - k + 1, {n, 1, 8}]; a (* Artur Jasinski *)
NestList[#^3-#+1&,3,5] (* Harvey P. Dale, Jan 09 2014 *)

Formula

a(n) = round(c^(3^n)), where c = 1.4298877386... is given in A144811.