login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A212256 Number of (w,x,y,z) with all terms in {1,...,n} and 4/w = 1/x + 1/y + 1/z + 1/n. 2
0, 1, 1, 4, 13, 1, 22, 1, 13, 10, 22, 1, 61, 1, 18, 102, 13, 1, 82, 1, 156, 79, 1, 1, 184, 1, 1, 10, 183, 1, 297, 1, 13, 105, 1, 181, 298, 1, 1, 16, 285, 1, 378, 1, 64, 405, 1, 1, 358, 1, 37, 13, 96, 1, 163, 130, 402, 31, 1, 1, 944 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,4

COMMENTS

w = harmonic mean of {x,y,z,n}.  For a guide to related sequences, see A211795.

LINKS

Table of n, a(n) for n=0..60.

MATHEMATICA

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

(Do[If[4/w == 1/x + 1/y + 1/z + 1/n, s = s + 1],

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

Map[t[#] &, Range[0, 60]]  (*  A212256 *)

(* Peter J. C. Moses, Apr 13 2012 *)

CROSSREFS

Cf. A211795.

Sequence in context: A024248 A130539 A156823 * A265327 A130650 A170865

Adjacent sequences:  A212253 A212254 A212255 * A212257 A212258 A212259

KEYWORD

nonn

AUTHOR

Clark Kimberling, May 15 2012

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 21 02:10 EDT 2021. Contains 348140 sequences. (Running on oeis4.)