OFFSET
0,2
LINKS
FORMULA
a(n) = 2*A061999(n).
a(n) ~ c^(2^n), where c = 1.35388068260888709216374860554901303232201699191445590979673901150215855854... . - Vaclav Kotesovec, Dec 17 2014
EXAMPLE
a(3) = 4^2 - 2^2 = 12.
MATHEMATICA
t = {0, 2}; Do[AppendTo[t, t[[-2]]^2 - t[[-1]]^2], {n, 8}]; Abs[t] (* Vladimir Joseph Stephan Orlovsky, Feb 23 2012 *)
RecurrenceTable[{a[0]==0, a[1]==2, a[n]==a[n-1]^2 - a[n-2]^2}, a, {n, 0, 10}] (* Vaclav Kotesovec, Dec 17 2014 *)
PROG
(PARI) { for (n=0, 12, if (n>1, a=a1^2 - a2^2; a2=a1; a1=a, if (n==0, a=a2=0, a=a1=2)); write("b062000.txt", n, " ", a) ) } \\ Harry J. Smith, Jul 29 2009
(SageMath)
def a(n): # a = A062000
if (n<2): return 2*n
else: return a(n-1)^2 - a(n-2)^2
[a(n) for n in (0..14)] # G. C. Greubel, May 01 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Henry Bottomley, May 29 2001
EXTENSIONS
First term corrected by Harry J. Smith, Jul 29 2009
STATUS
approved