Nothing Special   »   [go: up one dir, main page]

login
Revision History for A022537 (Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing entries 1-10 | older changes
Nexus numbers (n+1)^21 - n^21.
(history; published version)
#25 by Charles R Greathouse IV at Thu Sep 08 08:44:46 EDT 2022
PROG

(MAGMAMagma) [(n+1)^21 - n^21: n in [0..20]]; // G. C. Greubel, Feb 27 2018

Discussion
Thu Sep 08
08:44
OEIS Server: https://oeis.org/edit/global/2944
#24 by Bruno Berselli at Wed Feb 28 04:58:41 EST 2018
STATUS

proposed

approved

#23 by Joerg Arndt at Wed Feb 28 04:33:20 EST 2018
STATUS

editing

proposed

#22 by Joerg Arndt at Wed Feb 28 04:33:17 EST 2018
MATHEMATICA

q=21; lst={}; Do[AppendTo[lst, (n+1)^q-n^q], {n, 0, 4!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jan 23 2009 *)

PROG

(GAP) b:=21;; a:=n->(n+1)^b-n^b;; List([0..18], n->a(n)); # Muniru A Asiru, Feb 28 2018

STATUS

proposed

editing

#21 by Muniru A Asiru at Wed Feb 28 02:31:44 EST 2018
STATUS

editing

proposed

Discussion
Wed Feb 28
03:45
Bruno Berselli: Muniru, please see A022526, thanks.
#20 by Muniru A Asiru at Wed Feb 28 02:31:29 EST 2018
MAPLE

b:=21: a:=n->(n+1)^b-n^b: seq(a(n), n=0..18); # Muniru A Asiru, Feb 28 2018

PROG

(GAP) b:=21;; a:=n->(n+1)^b-n^b;; List([0..18], n->a(n)); # Muniru A Asiru, Feb 28 2018

STATUS

proposed

editing

#19 by Andrew Howroyd at Wed Feb 28 01:05:34 EST 2018
STATUS

editing

proposed

#18 by Andrew Howroyd at Wed Feb 28 01:05:30 EST 2018
CROSSREFS

Column k=20 of A047969.

STATUS

proposed

editing

#17 by Michel Marcus at Tue Feb 27 23:43:53 EST 2018
STATUS

editing

proposed

#16 by Michel Marcus at Tue Feb 27 23:43:50 EST 2018
CROSSREFS

Cf. A010809 (n^21).