A022534 Nexus numbers (n+1)^18 - n^18.
1, 262143, 387158345, 68332056247, 3745977788889, 97745259402791, 1526853641242033, 16385984911571535, 132080236787517137, 849905364703000879, 4559917313492231481, 21063415967393012423, 85832073671072149225, 314423447258679349527, 1051013025824763647969
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)^18-n^18: n in [0..20]]; // Vincenzo Librandi, Nov 22 2011
-
Maple
b:=18: a:=n->(n+1)^b-n^b: seq(a(n),n=0..18); # Muniru A Asiru, Feb 28 2018
-
Mathematica
Table[(n+1)^18-n^18,{n,0,20}] (* Vincenzo Librandi, Nov 22 2011 *)
-
PARI
for(n=0,20, print1((n+1)^18 - n^18, ", ")) \\ G. C. Greubel, Feb 27 2018
Formula
Extensions
More terms added by G. C. Greubel, Feb 27 2018