%I #9 Nov 08 2013 09:33:53
%S 2,7,337,38272417,56060590716839257663297,
%T 176186654453940966415101758343368831005891099500239113100063334235777
%N Recurrence sequence a(n+1)=a(n)^3-a(n)+1 and a(1)=2.
%C For constant c=1.240554576397679299452... see A144810.
%t a = {}; k = 2; Do[AppendTo[a, k]; k = k^3 - k + 1, {n, 1, 8}]; a (*Artur Jasinski*)
%t NestList[#^3-#+1&,2,5] (* _Harvey P. Dale_, Jun 24 2013 *)
%Y Cf. A000058, A082732, A144779, A144780, A144781, A144782, A144783, A144784, A144785, A144786, A144787, A144788.
%K nonn
%O 1,1
%A _Artur Jasinski_, Sep 22 2008