OFFSET
0,3
MATHEMATICA
a=0; Table[a=a^2-2^n, {n, 0, 11}]
RecurrenceTable[{a[-1]==0, a[n]==a[n-1]^2-2^n}, a[n], {n, 10}] (* Harvey P. Dale, Aug 12 2011 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Vladimir Joseph Stephan Orlovsky, Nov 22 2009
EXTENSIONS
Added keyword:sign, corrected indices in definition - R. J. Mathar, Nov 24 2009
STATUS
approved