|
Search: id:A102871
|
|
|
| A102871 |
|
a(n) = a(n-3) - 5a(n-2) + 5a(n-1), a(0) = 1, a(1) = 3, a(2) = 10. |
|
+0 5
|
|
| 1, 3, 10, 36, 133, 495, 1846, 6888, 25705, 95931, 358018, 1336140, 4986541, 18610023, 69453550, 259204176, 967363153, 3610248435, 13473630586, 50284273908, 187663465045, 700369586271, 2613814880038
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
COMMENT
|
A floretion-generated sequence resulting from a particular transform of the periodic sequence (-1,1).
Also indices of the centered triangular numbers which are triangular numbers - R. Choulet (richardchoulet(AT)yahoo.fr), Oct 09 2007
|
|
FORMULA
|
2a(n) - A001834(n) = (-1)^(n+1); a(n) = 4a(n-1) - a(n) - 1; G.f. x(2x-1)/((x-1)(x^2-4x+1)). Superseeker results: a(n+2) - 2a(n+1) + a(n) = A001834(n+1) (from this and the first relation involving A001834 it follows that 4a(n+1) - a(n+2) - a(n) = (-1)^n as well as the recurrence relation given for A001834 ); a(n+1) - a(n) = A001075(n+1) (Chebyshev's T(n, x) polynomials evaluated at x=2); a(n+2) - a(n) = A082841(n+1)
a[j+3]-3*a[j+2]-3*a[j+1]+a[j] = -2 for all j.
a(n+1)=2*a(n)-0.5+0.5*(12*a(n)^2-12*a(n)+9)^0.5 - R. Choulet (richardchoulet(AT)yahoo.fr), Oct 09 2007
|
|
MAPLE
|
a[0]:=0:a[1]:=1:for n from 2 to 50 do a[n]:=4*a[n-1]-a[n-2]-1 od: seq(a[n], n=1..23); - Zerinvary Lajos (zerinvarylajos(AT)yahoo.com), Mar 08 2008
|
|
PROGRAM
|
Floretion Algebra Multiplication Program, FAMP Code: .5em[J* ]forseq[ .25( 'i + 'j + 'k + i' + j' + k' + 'ii' + 'jj' + 'kk' + 'ij' + 'ik' + 'ji' + 'jk' + 'ki' + 'kj' + e ) ], em[J]forseq = A001834, vesforseq = (1, -1, 1, -1). ForType 1A. Identity used: em[J]forseq + em[J* ]forseq = vesforseq.
|
|
CROSSREFS
|
Cf. A001834, A001075, A082841.
Sequence in context: A047122 A047107 A055989 this_sequence A119374 A126188 A081909
Adjacent sequences: A102868 A102869 A102870 this_sequence A102872 A102873 A102874
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Creighton Dement (creighton.k.dement(AT)uni-oldenburg.de), Mar 01 2005
|
|
EXTENSIONS
|
More terms from R. Choulet (richardchoulet(AT)yahoo.fr), Oct 09 2007
|
|
|
Search completed in 0.002 seconds
|