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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A224448 Nonnegative numbers that have a representation as a sum of three primitive and distinct squares (square 0 allowed). 3
 5, 10, 13, 14, 17, 21, 25, 26, 29, 30, 34, 35, 37, 38, 41, 42, 45, 46, 49, 50, 53, 54, 58, 59, 61, 62, 65, 66, 69, 70, 73, 74, 75, 77, 78, 81, 82, 83, 85, 86, 89, 90, 91, 93, 94, 97, 98, 101, 105, 106, 107, 109, 110, 113, 114, 115, 117, 118, 121, 122, 125, 126, 129, 130 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS These are the numbers a(n) satisfying A224447(a(n)) = k >= 1, and k gives their multiplicity. See the comments on A224447 for more details and a F. Halter-Koch corollary (Korollar 1. (c), p. 13 with the first line of r_3(n) on p. 11) according to which this sequence gives the increasingly ordered numbers satisfying: neither congruent 0, 4, 7 (mod 8) nor a member of the set S:= {1, 2, 3, 6, 9, 11, 18, 19, 22, 27, 33, 43, 51, 57, 67, 99, 102, 123, 163, 177, 187, 267, 627, ?}, with a number \$ >= 5*10^10 if it exists at all. REFERENCES F. Halter-Koch, Darstellung natuerlicher Zahlen als Summe von Quadraten, Acta Arith. 42 (1982) 11-20, pp. 13 and 11. LINKS Vincenzo Librandi, Table of n, a(n) for n = 1..1000 FORMULA a(n) is the n-th largest number m satisfying m = a^2 + b^2 + c^2, with a, b, and c integers, 0 <= a < b < c, and gcd(a,b,c) = 1. a(n) is the n-th largest number m for which A224447(m) > 0. EXAMPLE Denote a representation in question by the triple [a, b, c]. The representations for n= 1, 2, ..., 10 are: n=1,   5: [0, 1, 2], n=2,  10: [0, 1, 3], n=3,  13: [0, 2, 3], n=4,  14: [1, 2, 3], n=5,  17: [0, 1, 4], [2, 2, 3], n=6,  21: [1, 2, 4], n=7,  25: [0, 0, 5], [0, 3, 4], n=8,  26: [0, 1, 5], [1, 3, 4], n=9,  29: [0, 2, 5], [2, 3, 4] n=10, 30: [1, 2, 5]. MATHEMATICA representableQ[n_] := Length[ Select[ PowersRepresentations[n, 3, 2], Unequal @@ # && GCD @@ # == 1 & ]] > 0; Select[ Range[130], representableQ] (* Jean-François Alcover, Apr 10 2013 *) CROSSREFS Cf. A224447, A047449 (primitive case). Sequence in context: A001974 A242307 A313377 * A046130 A241143 A073503 Adjacent sequences:  A224445 A224446 A224447 * A224449 A224450 A224451 KEYWORD nonn AUTHOR Wolfdieter Lang, Apr 09 2013 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.

Last modified April 10 15:15 EDT 2021. Contains 342845 sequences. (Running on oeis4.)