|
| |
|
|
A089181
|
|
(1,3) entry of powers of the orthogonal design shown in A090592.
|
|
3
| |
|
|
1, 2, -3, -20, -19, 102, 337, -40, -2439, -4598, 7877, 47940, 40741, -254098, -793383, 191920, 5937521, 10531602, -20499443, -114720100, -85944099, 631152502, 1863913697, -690240120, -14427876119, -24024071398, 52946990037, 274062479860, 177496029461
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
LINKS
| Harvey P. Dale, Table of n, a(n) for n = 1..1000
|
|
|
FORMULA
| a(1)=1, a(2)=2, a(n)=2a(n-1)-7a(n-2) - T. D. Noe (noe(AT)sspectra.com), Dec 11 2006
a(n)=(1/2)*[1+I*sqrt(6)]^(n-1)+(1/2)*[1-I*sqrt(6)]^(n-1)+[(1/12)*I]*[1-I*sqrt(6)]^(n-1)*sqrt(6)-[(1/12) *I]*[1+I*sqrt(6)]^(n-1)*sqrt(6), with n>=0 and I=sqrt(-1) - Paolo P. Lava (paoloplava(AT)gmail.com), Jun 10 2008
|
|
|
MATHEMATICA
| Join[{a=1, b=2}, Table[c=2*b-7*a; a=b; b=c, {n, 100}]] (*From Vladimir Joseph Stephan Orlovsky, Jan 17 2011*)
LinearRecurrence[{2, -7}, {1, 2}, 40] (* From Harvey P. Dale, Nov 04 2011 *)
|
|
|
PROG
| (Other) sage: [lucas_number1(n, 2, 7) for n in xrange(1, 18)] # [From Zerinvary Lajos (zerinvarylajos(AT)yahoo.com), Apr 23 2009]
|
|
|
CROSSREFS
| Sequence in context: A108022 A108884 A119584 * A028425 A024630 A032809
Adjacent sequences: A089178 A089179 A089180 * A089182 A089183 A089184
|
|
|
KEYWORD
| sign
|
|
|
AUTHOR
| Simone Severini (simoseve(AT)gmail.com), Dec 08 2003
|
|
|
EXTENSIONS
| Corrected by T. D. Noe (noe(AT)sspectra.com), Dec 11 2006
Extended by T. D. Noe (noe(AT)sspectra.com), May 23 2011
|
| |
|
|
