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

%I #8 Jan 09 2014 10:13:47

%S 3,25,15601,3797146111201,54748462363349863789331489199516542401,

%T 164102719777453765093060237305105241279744702931788833463132240094953276902575203916973404664183940277497050364801

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

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

%t a = {}; k = 3; Do[AppendTo[a, k]; k = k^3 - k + 1, {n, 1, 8}]; a (* Artur Jasinski *)

%t NestList[#^3-#+1&,3,5] (* _Harvey P. Dale_, Jan 09 2014 *)

%Y Cf. A000058, A082732, A144779-A144788.

%K easy,nonn

%O 1,1

%A _Artur Jasinski_, Sep 22 2008