|
%I #26 Sep 08 2022 08:44:46
%S 1,16777215,282412759265,281192547174175,59323169798679969,
%T 4678776693546226271,186842850042244797505,4530785251489078799295,
%U 75044076594002864649665,920233556923127490136639,8849732675807611094711841,69647114527583233038729695,463303923170979668638153825
%N Nexus numbers (n+1)^24 - n^24.
%D J. H. Conway and R. K. Guy, The Book of Numbers, Copernicus Press, NY, 1996, p. 54.
%H Harvey P. Dale, <a href="/A022540/b022540.txt">Table of n, a(n) for n = 0..1000</a>
%F a(n) = A010812(n+1) - A010812(n). - _Michel Marcus_, Feb 27 2018
%p b:=24: 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,10]^24,2,1] (* _Harvey P. Dale_, Apr 19 2014 *)
%t Table[(n+1)^24 - n^24, {n,0,20}] (* _G. C. Greubel_, Feb 27 2018 *)
%o (PARI) for(n=0,20, print1((n+1)^24 - n^24, ", ")) \\ _G. C. Greubel_, Feb 27 2018
%o (Magma) [(n+1)^24 - n^24: n in [0..20]]; // _G. C. Greubel_, Feb 27 2018
%Y Column k=23 of A047969.
%Y Cf. A010812 (n^24).
%K nonn
%O 0,2
%A _N. J. A. Sloane_
|
