The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A212569 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A212569

Number of (w,x,y,z) with all terms in {0,...,n} such that range{w,x,y,z} is not one of the numbers w,x,y,z.
(history; published version)

#23 by Charles R Greathouse IV at Thu Sep 08 08:46:02 EDT 2022

PROG

(MAGMAMagma) [((n-1)*n*(2*n*(2*n-5)-3*(-1)^n+11)-2*(-1)^n+2)/4: n in [0..40]]; // Vincenzo Librandi, Nov 16 2014

Discussion

Thu Sep 08

08:46

OEIS Server: https://oeis.org/edit/global/2944

#22 by Peter Luschny at Mon Nov 17 20:38:02 EST 2014

STATUS

reviewed

approved

#21 by Peter Luschny at Sun Nov 16 13:02:03 EST 2014

STATUS

proposed

reviewed

#20 by Peter Luschny at Sun Nov 16 13:01:52 EST 2014

STATUS

editing

proposed

#19 by Peter Luschny at Sun Nov 16 13:00:56 EST 2014

MATHEMATICA

t = Compile[{{n, _Integer}}, Module[{s = 0}, (Do[If[(w != # && x != # && y != # && z != #) &[Max[w, x, y, z] - Min[w, x, y, z]], s++], {w, 0, n}, {x, 0, n}, {y, 0, n}, {z, 0, n}]; s)]]; Map[t[#] &, Range[0, 40]] (* _Peter J. C. Moses_, May 24 2012 *)

If[(w != # && x != # && y != # && z != #) &[

Max[w, x, y, z] - Min[w, x, y, z]], s++], {w, 0, n},

{x, 0, n}, {y, 0, n}, {z, 0, n}]; s)]];

Map[t[#] &, Range[0, 40]]

(* Peter J. C. Moses, May 24 2012 *)

STATUS

proposed

editing

Discussion

Sun Nov 16

13:01

Peter Luschny: Line breaks removed.

#18 by Jon E. Schoenfield at Sun Nov 16 06:15:04 EST 2014

STATUS

editing

proposed

#17 by Jon E. Schoenfield at Sun Nov 16 06:14:55 EST 2014

NAME

Number of (w,x,y,z) with all terms in {0,...,n} and such that range{w,x,y,z} is not one of the numbers w,x,y,z.

MATHEMATICA

(* _Peter J. C. Moses_, May 24 2012 *)

STATUS

proposed

editing

#16 by Vincenzo Librandi at Sun Nov 16 06:06:39 EST 2014

STATUS

editing

proposed

#15 by Vincenzo Librandi at Sun Nov 16 06:05:40 EST 2014

MATHEMATICA

CoefficientList[Series[(- x - 25 x^3 - 36 x^4 - 79 x^5 - 36 x^6 - 15 x^7) / ((-1 + x)^5 (1 + x)^3), {x, 0, 40}], x] (* Vincenzo Librandi, Nov 16 2014 *)

PROG

(MAGMA) [((n-1)*n*(2*n*(2*n-5)-3*(-1)^n+11)-2*(-1)^n+2)/4: n in [0..40]]; // Vincenzo Librandi, Nov 16 2014

STATUS

proposed

editing

#14 by Michel Marcus at Sun Nov 16 04:08:40 EST 2014

STATUS

editing

proposed