A186750 a(0) = 3; thereafter, a(n) = a(n-1)^2 - 3.
3, 6, 33, 1086, 1179393, 1390967848446, 1934791555410494424614913, 3743418362887760317407541271559358491868341997566
Offset: 0
Links
Programs
-
Mathematica
RecurrenceTable[{a[0] == 3, a[n] == a[n-1]^2 - 3}, a, {n, 0, 10}] (* Vaclav Kotesovec, Dec 18 2014 *) Drop[Abs[NestList[#^2 - 3 &, 0, 9]], 1] (* Alonso del Arte, Apr 08 2016 *)
Formula
a(n) ~ c^(2^n), where c = 2.3959550115176494685408322564302422183669584045032057908382914927198090627... - Vaclav Kotesovec, Dec 18 2014
Comments