# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/
Search: id:a063522
Showing 1-1 of 1
%I A063522 #27 Sep 06 2023 15:22:36
%S A063522 0,1,17,63,154,305,531,847,1268,1809,2485,3311,4302,5473,6839,8415,
%T A063522 10216,12257,14553,17119,19970,23121,26587,30383,34524,39025,43901,
%U A063522 49167,54838,60929,67455,74431,81872,89793,98209,107135,116586
%N A063522 a(n) = n*(5*n^2 - 3)/2.
%H A063522 Harry J. Smith, Table of n, a(n) for n = 0..1000
%H A063522 T. P. Martin, Shells of atoms, Phys. Reports, 273 (1996), 199-241, eq. (11).
%H A063522 Index entries for linear recurrences with constant coefficients, signature (4, -6, 4, -1).
%F A063522 G.f.: x*(1 + 13*x + x^2)/(1-x)^4. - _Colin Barker_, Jan 10 2012
%F A063522 E.g.f.: (x/2)*(2 + 15*x + 5*x^2)*exp(x). - _G. C. Greubel_, Sep 01 2017
%t A063522 lst={};Do[AppendTo[lst, LegendreP[3, n]], {n, 10^2}];lst (* _Vladimir Joseph Stephan Orlovsky_, Sep 11 2008 *)
%t A063522 CoefficientList[Series[x*(1 + 13*x + x^2)/(1-x)^4, {x, 0, 50}], x] (* _G. C. Greubel_, Sep 01 2017 *)
%t A063522 LinearRecurrence[{4,-6,4,-1},{0,1,17,63},40] (* _Harvey P. Dale_, Sep 06 2023 *)
%o A063522 (PARI) { for (n=0, 1000, write("b063522.txt", n, " ", n*(5*n^2 - 3)/2) ) } \\ _Harry J. Smith_, Aug 25 2009
%o A063522 (Magma) [n*(5*n^2 -3)/2: n in [0..30]]; // _G. C. Greubel_, May 02 2018
%Y A063522 (1/12)*t*(n^3 - n) + n for t = 2, 4, 6, ... gives A004006, A006527, A006003, A005900, A004068, A000578, A004126, A000447, A004188, A004466, A004467, A007588, A062025, A063521, A063522, A063523.
%Y A063522 Bisections: A160674, A160699.
%K A063522 nonn,easy
%O A063522 0,3
%A A063522 _N. J. A. Sloane_, Aug 02 2001
# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE