|
%I #26 Feb 07 2024 12:32:36
%S 1,9,49,121,841,2209,15129,39601,271441,710649,4870849,12752041,
%T 87403801,228826129,1568397609,4106118241,28143753121,73681302249,
%U 505019158609,1322157322201,9062201101801,23725150497409,162614600673849,425730551631121,2918000611027441
%N Squares of odd Lucas numbers.
%H Harvey P. Dale, <a href="/A014730/b014730.txt">Table of n, a(n) for n = 0..1594</a>
%H <a href="/index/Rec#order_06">Index entries for linear recurrences with constant coefficients</a>, signature (0,17,0,17,0,-1).
%F a(n) = 17*a(n-2)+17*a(n-4)-a(n-6). - _R. J. Mathar_, Feb 10 2012
%F G.f.: -(x-1)*(x^4+10*x^3+42*x^2+10*x+1) / ((x^2-4*x-1)*(x^2+1)*(x^2+4*x-1)). - _Colin Barker_, May 14 2014
%t Select[LucasL[Range[50]],OddQ]^2 (* _Harvey P. Dale_, Nov 13 2021 *)
%o (PARI) Vec(-(x-1)*(x^4+10*x^3+42*x^2+10*x+1)/((x^2-4*x-1)*(x^2+1)*(x^2+4*x-1)) + O(x^100)) \\ _Colin Barker_, May 14 2014
%Y Cf. A014447, A081069.
%K nonn,easy
%O 0,2
%A _Mohammad K. Azarian_
%E More terms from _Colin Barker_, May 14 2014
|
