A113494 a(0) = 2, a(1) = 3; for n>1, a(n) = a(n-2)^2 + a(n-1)^2.

2, 3, 13, 178, 31853, 1014645293, 1029505071621669458, 1059880692494738761409621021617069613, 1123347082323126985848870489739619316533660939418089557571160604297983533

Offset: 0

Author

Michael Hogan (Michael(AT)michaelhogan.com), Jan 10 2006

Keywords

• nonn
• easy

References

• Harper's Magazine, Feb 2006, Page 14.

Crossrefs

Cf. A000283.

Programs

Mathematica

a[1] = 2; a[2] = 3; a[n_] := a[n - 2]^2 + a[n - 1]^2; Array[a, 9] (* Robert G. Wilson v *)

Extensions

Corrected and extended by Robert G. Wilson v, Jan 11 2006