A160699 A bisection of A063522.
0, 17, 154, 531, 1268, 2485, 4302, 6839, 10216, 14553, 19970, 26587, 34524, 43901, 54838, 67455, 81872, 98209, 116586, 137123, 159940, 185157, 212894, 243271, 276408, 312425, 351442, 393579, 438956, 487693, 539910, 595727, 655264, 718641, 785978, 857395
Offset: 0
Links
- G. C. Greubel, Table of n, a(n) for n = 0..1000
- Index entries for linear recurrences with constant coefficients, signature (4, -6, 4, -1).
Programs
-
Magma
I:=[0,17,154,531]; [n le 4 select I[n] else 4*Self(n-1) - 6*Self(n-2) +4*Self(n-3) -Self(n-4): n in [1..50]]; // G. C. Greubel, May 02 2018
-
Mathematica
Table[LegendreP[3,2n],{n,0,50}] LinearRecurrence[{4,-6,4,-1},{0,17,154,531},151] (* Harvey P. Dale, May 07 2011 *)
-
PARI
a(n)=pollegendre(3,2*n) \\ Charles R Greathouse IV, Mar 19 2017
Formula
a(0)=0, a(1)=17, a(2)=154, a(3)=531, a(n) = 4*a(n-1) -6*a(n-2) +4*a(n-3) -a(n-4). - Harvey P. Dale, May 07 2011