login
Second differences of eighth powers (A001016).
5

%I #46 Aug 26 2024 17:11:03

%S 1,254,6050,52670,266114,963902,2796194,6927230,15257090,30683774,

%T 57405602,101263934,170126210,274309310,427043234,644975102,948713474,

%U 1363412990,1919399330,2652834494,3606422402,4830154814,6382097570,8329217150,10748247554

%N Second differences of eighth powers (A001016).

%H Luciano Ancora, <a href="/A255178/b255178.txt">Table of n, a(n) for n = 0..1000</a>

%H Luciano Ancora, <a href="https://upload.wikimedia.org/wikipedia/commons/f/fe/Sum_of_powers.pdf">Sums of powers of positive integers and their recurrence relations</a>, section 0.5.

%H <a href="/index/Rec#order_07">Index entries for linear recurrences with constant coefficients</a>, signature (7,-21,35,-35,21,-7,1).

%F G.f.: (1 + x)*(1 + 246*x + 4047*x^2 + 11572*x^3 + 4047*x^4 + 246*x^5 + x^6)/(1 - x)^7.

%F a(n) = 2*(28*n^6 + 70*n^4 + 28*n^2 + 1) for n>0, a(0)=1.

%e Second differences: 1, 254, 6050, 52670, 266114, ... (this sequence)

%e First differences: 1, 255, 6305, 58975, 325089, ... (A022524)

%e ----------------------------------------------------------------------

%e The eighth powers: 1, 256, 6561, 65536, 390625, ... (A001016)

%e ----------------------------------------------------------------------

%e First partial sums: 1, 257, 6818, 72354, 462979, ... (A000542)

%e Second partial sums: 1, 258, 7076, 79430, 542409, ... (A253636)

%e Third partial sums: 1, 259, 7335, 86765, 629174, ... (A254642)

%e Fourth partial sums: 1, 260, 7595, 94360, 723534, ... (A254647)

%t Join[{1}, Table[2 (28 n^6 + 70 n^4 + 28 n^2 + 1), {n, 1, 30}]]

%t Join[{1},Differences[Range[0,30]^8,2]] (* _Harvey P. Dale_, Aug 26 2024 *)

%o (Magma) [n eq 0 select 1 else 2*(28*n^6+70*n^4+28*n^2+1): n in [0..30]]; // _Vincenzo Librandi_, Mar 12 2015

%Y Cf. A000542, A001016, A022524, A253636, A254642, A254647, A255177.

%K nonn,easy

%O 0,2

%A _Luciano Ancora_, Feb 21 2015

%E Edited by _Bruno Berselli_, Mar 19 2015