The On-Line Encyclopedia of Integer Sequences (OEIS)

The OEIS is supported by the many generous donors to the OEIS Foundation.

Revision History for A212053

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A212053

Number of (w,x,y,z) with all terms in {1,...,n} and w*x<=y*z+1.
(history; published version)

#8 by N. J. A. Sloane at Sun Dec 04 19:46:29 EST 2016

MATHEMATICA

(* _Peter J. C. Moses, _, Apr 13 2012 *)

Discussion

Sun Dec 04

19:46

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

#7 by Bruno Berselli at Tue Jun 05 11:38:35 EDT 2012

STATUS

editing

approved

#6 by Bruno Berselli at Tue Jun 05 11:38:31 EDT 2012

COMMENTS

A212053a(n)+A212054(n)=n^4. See A211795 for a guide to related sequences.

STATUS

approved

editing

#5 by T. D. Noe at Wed May 16 11:24:00 EDT 2012

STATUS

proposed

approved

#4 by Clark Kimberling at Mon May 14 16:14:49 EDT 2012

STATUS

editing

proposed

#3 by Clark Kimberling at Sun Apr 29 10:29:20 EDT 2012

COMMENTS

A212053(n)+A212054(n)=n^4. See A211795 for a guide to related sequences.

Discussion

Sun May 13

23:15

OEIS Server: This sequence has not been edited or commented on for a week
yet is not proposed for review.  If it is ready for review, please
visit https://oeis.org/draft/A212053 and click the button that reads
"These changes are ready for review by an OEIS Editor."

Thanks.
  - The OEIS Server

#2 by Clark Kimberling at Sun Apr 29 10:27:55 EDT 2012

NAME

allocated for Clark KimberlingNumber of (w,x,y,z) with all terms in {1,...,n} and w*x<=y*z+1.

DATA

0, 1, 13, 56, 158, 365, 725, 1312, 2198, 3477, 5245, 7624, 10742, 14725, 19725, 25920, 33470, 42557, 53397, 66176, 81150, 98525, 118533, 141456, 167606, 197189, 230509, 267920, 309726, 356205, 407805, 464744, 527494, 596389, 671789

OFFSET

0,3

COMMENTS

See A211795 for a guide to related sequences.

MATHEMATICA

t = Compile[{{n, _Integer}}, Module[{s = 0},

(Do[If[w*x <= y*z + 1, s = s + 1],

{w, 1, #}, {x, 1, #}, {y, 1, #}, {z, 1, #}] &[n]; s)]];

Map[t[#] &, Range[0, 50]] (* A212053 *)

(* Peter Moses, Apr 13 2012 *)

CROSSREFS

Cf. A211795.

KEYWORD

allocated

nonn

AUTHOR

Clark Kimberling, Apr 29 2012

STATUS

approved

editing

#1 by Clark Kimberling at Sat Apr 28 19:51:52 EDT 2012

NAME

allocated for Clark Kimberling

KEYWORD

allocated

STATUS

approved