This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A014730 #26 Feb 07 2024 12:32:36 %S A014730 1,9,49,121,841,2209,15129,39601,271441,710649,4870849,12752041, %T A014730 87403801,228826129,1568397609,4106118241,28143753121,73681302249, %U A014730 505019158609,1322157322201,9062201101801,23725150497409,162614600673849,425730551631121,2918000611027441 %N A014730 Squares of odd Lucas numbers. %H A014730 Harvey P. Dale, <a href="/A014730/b014730.txt">Table of n, a(n) for n = 0..1594</a> %H A014730 <a href="/index/Rec#order_06">Index entries for linear recurrences with constant coefficients</a>, signature (0,17,0,17,0,-1). %F A014730 a(n) = 17*a(n-2)+17*a(n-4)-a(n-6). - _R. J. Mathar_, Feb 10 2012 %F A014730 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 A014730 Select[LucasL[Range[50]],OddQ]^2 (* _Harvey P. Dale_, Nov 13 2021 *) %o A014730 (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 A014730 Cf. A014447, A081069. %K A014730 nonn,easy %O A014730 0,2 %A A014730 _Mohammad K. Azarian_ %E A014730 More terms from _Colin Barker_, May 14 2014