The On-Line Encyclopedia of Integer Sequences (OEIS)

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

A211649

Number of ordered triples (w,x,y) with all terms in {1,...,n} and w^2+x^2+y^2=2n.
(history; published version)

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

MATHEMATICA

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

Discussion

Sun Dec 04

19:46

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

#4 by T. D. Noe at Wed May 02 17:18:49 EDT 2012

STATUS

proposed

approved

#3 by Clark Kimberling at Wed May 02 16:51:25 EDT 2012

STATUS

editing

proposed

#2 by Clark Kimberling at Wed Apr 18 19:58:58 EDT 2012

NAME

allocated for Clark KimberlingNumber of ordered triples (w,x,y) with all terms in {1,...,n} and w^2+x^2+y^2=2n.

DATA

0, 0, 0, 3, 0, 0, 1, 6, 0, 3, 0, 3, 3, 6, 0, 6, 0, 3, 3, 9, 0, 6, 3, 6, 1, 6, 0, 12, 6, 0, 0, 12, 0, 12, 3, 6, 3, 12, 3, 6, 0, 3, 6, 15, 3, 12, 0, 12, 3, 12, 0, 6, 6, 6, 4, 18, 0, 12, 6, 9, 6, 12, 0, 18, 0, 0, 6, 21, 3, 12, 6, 6, 3, 21, 0, 15, 9, 12, 0, 12, 0, 12, 9, 15, 6, 12, 3, 18

OFFSET

0,4

COMMENTS

For a guide to related sequences, see A211422.

MATHEMATICA

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

(Do[If[w^2 + x^2 + y^2 == 2 n, s = s + 1],

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

Map[t[#] &, Range[0, 400]] (* A211649 *)

-1 + Flatten[Position[%, 0]] (* A182195 *)

(* Peter Moses, Apr 13 2012 *)

CROSSREFS

Cf. A211422.

KEYWORD

allocated

nonn

AUTHOR

Clark Kimberling, Apr 18 2012

STATUS

approved

editing

Discussion

Thu Apr 26

05:22

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/A211649 and click the button that reads
"These changes are ready for review by an OEIS Editor."

Thanks.
  - The OEIS Server

#1 by Clark Kimberling at Tue Apr 17 12:06:16 EDT 2012

NAME

allocated for Clark Kimberling

KEYWORD

allocated

STATUS

approved