|
%I #32 Sep 08 2022 08:44:46
%S 1,131071,129009091,17050729021,745759583941,16163719991611,
%T 215703854542471,2019169299698041,14425381885981321,83322818300333431,
%U 405447028499293771,1713164078241143221,6431804812640900941,21840930809949857971,68034778606362163471,196621779843659466481
%N Nexus numbers (n+1)^17 - n^17.
%D J. H. Conway and R. K. Guy, The Book of Numbers, Copernicus Press, NY, 1996, p. 54.
%H Vincenzo Librandi, <a href="/A022533/b022533.txt">Table of n, a(n) for n = 0..10000</a>
%F a(n) = A010805(n+1) - A010805(n). - _Michel Marcus_, Feb 27 2018
%p b:=17: a:=n->(n+1)^b-n^b: seq(a(n),n=0..18); # _Muniru A Asiru_, Feb 28 2018
%t Table[(n+1)^17-n^17,{n,0,20}] (* _Vincenzo Librandi_, Nov 22 2011 *)
%t Differences[Range[0,20]^17] (* _Harvey P. Dale_, May 21 2019 *)
%o (Magma) [(n+1)^17-n^17: n in [0..20]]; // _Vincenzo Librandi_, Nov 22 2011
%o (PARI) for(n=0,20, print1((n+1)^17 - n^17, ", ")) \\ _G. C. Greubel_, Feb 27 2018
%Y Column k=16 of A047969.
%Y Cf. A010805 (n^17).
%K nonn,easy
%O 0,2
%A _N. J. A. Sloane_
%E More terms added by _G. C. Greubel_, Feb 27 2018
|
