%I #25 Sep 08 2022 08:44:41
%S 1,512,3375,10648,24389,46656,79507,125000,185193,262144,357911,
%T 474552,614125,778688,970299,1191016,1442897,1728000,2048383,2406104,
%U 2803221,3241792,3723875,4251528,4826809
%N a(n) = (7*n + 1)^3.
%H Vincenzo Librandi, <a href="/A016995/b016995.txt">Table of n, a(n) for n = 0..10000</a>
%H <a href="/index/Rec#order_04">Index entries for linear recurrences with constant coefficients</a>, signature (4, -6, 4, -1).
%F G.f.: (216*x^3 + 1333*x^2 + 508*x + 1)/(1-x)^4. - _Vincenzo Librandi_, Jan 27 2013
%p seq((7*n+1)^3,n=0..25); # _Muniru A Asiru_, Oct 13 2018
%t CoefficientList[Series[(216*x^3 + 1333*x^2 + 508*x + 1)/(1 - x)^4, {x, 0, 30}], x] (* _Vincenzo Librandi_, Jan 27 2013 *)
%t (7*Range[0,40]+1)^3 (* or *) LinearRecurrence[{4,-6,4,-1},{1,512,3375,10648},40] (* _Harvey P. Dale_, Sep 15 2018 *)
%o (Magma) [(7*n+1)^3: n in [0..40]]; // _Vincenzo Librandi_, Jul 13 2011
%o (PARI) a(n) = (7*n+1)^3; \\ _Altug Alkan_, Oct 13 2018
%o (GAP) List([0..25],n->(7*n+1)^3); # _Muniru A Asiru_, Oct 13 2018
%K nonn,easy
%O 0,2
%A _N. J. A. Sloane_