|
Search: id:A005824
|
|
|
| A005824 |
|
a(n) = 5a(n-2) - 2a(n-4).
(Formerly M2489)
|
|
+0
4
|
|
| 0, 1, 1, 3, 5, 13, 23, 59, 105, 269, 479, 1227, 2185, 5597, 9967, 25531, 45465, 116461, 207391, 531243, 946025, 2423293, 4315343, 11053979, 19684665, 50423309, 89792639, 230008587, 409593865, 1049196317, 1868384047, 4785964411
(list; graph; listen)
|
|
|
OFFSET
|
0,4
|
|
|
REFERENCES
|
Shallit, Jeffrey; On the worst case of three algorithms for computing the Jacobi symbol. J. Symbolic Comput. 10 (1990), no. 6, 593-610.
|
|
LINKS
|
S. Plouffe, Approximations de S\'{e}ries G\'{e}n\'{e}ratrices et Quelques Conjectures}, Dissertation, Universit\'{e} du Qu\'{e}bec \`{a} Montr\'{e}al, 1992.
S. Plouffe, 1031 Generating Functions and Conjectures, Universit\'{e} du Qu\'{e}bec \`{a} Montr\'{e}al, 1992.
|
|
FORMULA
|
Also a(n) = a(n-1) + 2a(n-2) if n is even, else a(n) = 2a(n-1) + a(n-2).
Comment from Paolo P. Lava (ppl(AT)spl.at), Jun 10 2008: (Start) a(n) = (1/68) * (-1)^n * [5/2 + (1/2) * sqrt(17)]^(-1/4) * [5/2 + (1/2) * sqrt(17)]^[(1/4) * (-1)^n] * [5/2 + (1/2) * sqrt(17)]^[(1/2) * n] * sqrt(17) - (1/68) * [5/2 - (1/2) * sqrt(17)]^(-1/4) * (-1)^n * sqrt(17) * [5/2 - (1/2) * sqrt(17)]^[(1/4) * (-1)^n] * [5/2 - (1/2) * sqrt(17)]^[(1/2) * n] +
(1/4) * [5/2 - (1/2) * sqrt(17)]^( - 1/4) * [5/2 - (1/2) * sqrt(17)]^[(1/4) * (-1)^n] * [5/2 - (1/2) * sqrt(17)]^[(1/2) * n] + (1/4) * [5/2 + (1/2) * sqrt(17)]^(-1/4) * [5/2 + (1/2) * sqrt(17)]^[(1/4) * (-1)^n] * [5/2 + (1/2) * sqrt(17)]^[(1/2) * n] - (1/4) * (-1)^n * [5/2 + (1/2) * sqrt(17)]^(-1/4) * [5/2 + (1/2) * sqrt(17)]^[(1/4) * (-1)^n] * [5/2 + (1/2) * sqrt(17)]^[(1/2) * n] - (1/4) * [5/2 - (1/2) * sqrt(17)]^(-1/4) * (-1)^n * [5/2 - (1/2) * sqrt(17)]^[(1/4) * (-1)^n] * [5/2 - (1/2) * sqrt(17)]^[(1/2) * n] +
(3/68) * [5/2 + (1/2) * sqrt(17)]^(-1/4) * [5/2 + (1/2) * sqrt(17)]^[(1/4) * (-1)^n] * [5/2 + (1/2) * sqrt(17)]^[(1/2) * n] * sqrt(17) - (3/68) * [5/2 - (1/2) * sqrt(17)]^(-1/4) * sqrt(17) * [5/2 - (1/2) * sqrt(17)]^[(1/4) * (-1)^n] * [5/2 - (1/2) * sqrt(17)]^[(1 /2) * n], with n> = 0 (End)
|
|
MAPLE
|
A005824:=-z*(2*z+1)*(z-1)/(1-5*z**2+2*z**4); [S. Plouffe in his 1992 dissertation.]
|
|
MATHEMATICA
|
a[0] = 0; a[1] = 1; a[n_] := a[n] = If[ EvenQ[n], a[n - 1] + 2a[n - 2], 2a[n - 1] + a[n - 2]]; Table[a[n], {n, 0, 31}]
|
|
CROSSREFS
|
Cf. A079162. a(2n) = A052984(n).
Adjacent sequences: A005821 A005822 A005823 this_sequence A005825 A005826 A005827
Sequence in context: A045414 A089067 A026733 this_sequence A027305 A026766 A026709
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
njas, Jeffrey Shallit (shallit(AT)graceland.uwaterloo.ca)
|
|
EXTENSIONS
|
Extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 29 2002
|
|
|
Search completed in 0.002 seconds
|
