A022533 Nexus numbers (n+1)^17 - n^17.
1, 131071, 129009091, 17050729021, 745759583941, 16163719991611, 215703854542471, 2019169299698041, 14425381885981321, 83322818300333431, 405447028499293771, 1713164078241143221, 6431804812640900941, 21840930809949857971, 68034778606362163471, 196621779843659466481
Offset: 0
References
- J. H. Conway and R. K. Guy, The Book of Numbers, Copernicus Press, NY, 1996, p. 54.
Links
- Vincenzo Librandi, Table of n, a(n) for n = 0..10000
Programs
-
Magma
[(n+1)^17-n^17: n in [0..20]]; // Vincenzo Librandi, Nov 22 2011
-
Maple
b:=17: a:=n->(n+1)^b-n^b: seq(a(n),n=0..18); # Muniru A Asiru, Feb 28 2018
-
Mathematica
Table[(n+1)^17-n^17,{n,0,20}] (* Vincenzo Librandi, Nov 22 2011 *) Differences[Range[0,20]^17] (* Harvey P. Dale, May 21 2019 *)
-
PARI
for(n=0,20, print1((n+1)^17 - n^17, ", ")) \\ G. C. Greubel, Feb 27 2018
Formula
Extensions
More terms added by G. C. Greubel, Feb 27 2018