|
%I #32 Jun 28 2023 22:04:49
%S 1,16383,4766585,263652487,5835080169,72260648471,599858908753,
%T 3719823438255,18478745943857,77123207545039,279749833583241,
%U 904168630965623,2653457921150425,7174630439858727,18080919199832609,42864668012537311,96320232521472993,206435541022680095
%N Nexus numbers (n+1)^14 - n^14.
%D J. H. Conway and R. K. Guy, The Book of Numbers, Copernicus Press, NY, 1996, p. 54.
%H Harvey P. Dale, <a href="/A022530/b022530.txt">Table of n, a(n) for n = 0..1000</a>
%F G.f.: (1+x) *(x^12 +16368*x^11 +4520946*x^10 +193889840*x^9 +2377852335*x^8 +10465410528*x^7 +17505765564*x^6 +10465410528*x^5 +2377852335*x^4 +193889840*x^3 +4520946*x^2 +16368*x+1) / (x-1)^14 . - _R. J. Mathar_, Sep 02 2016
%F a(n) = A010802(n+1) - A010802(n). - _Michel Marcus_, Feb 28 2018
%p b:=14: a:=n->(n+1)^b-n^b: seq(a(n),n=0..18); # _Muniru A Asiru_, Feb 28 2018
%t Last[#]-First[#]&/@Partition[Range[0,20]^14,2,1] (* _Harvey P. Dale_, Oct 04 2011 *)
%t Table[(n+1)^14 - n^14, {n,0,20}] (* _G. C. Greubel_, Feb 27 2018 *)
%o (PARI) for(n=0,20, print1((n+1)^14 - n^14, ", ")) \\ _G. C. Greubel_, Feb 27 2018
%o (Magma) [(n+1)^14 - n^14: n in [0..20]]; // _G. C. Greubel_, Feb 27 2018
%Y Column k=13 of A047969.
%Y Cf. A010802 (n^14).
%K nonn
%O 0,2
%A _N. J. A. Sloane_
|
