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!)
A214512 Least number having n orderless representations as p^2 + q^2 + r^2, where p, q, and r are primes. 3
12, 219, 363, 699, 1179, 2019, 2259, 3891, 4059, 6459, 5379, 10899, 13179, 10659, 12579, 21819, 20979, 26859, 34419, 38379, 41019, 61299, 39459, 41811, 82131, 50379, 77451, 71379, 141099, 85491, 103971, 74571, 180411, 108339, 179739, 161139, 126819, 225099 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Donovan Johnson, Table of n, a(n) for n = 1..1000

MATHEMATICA

nn = 10^6; ps = Prime[Range[PrimePi[Sqrt[nn]]]]; t = Flatten[Table[ps[[i]]^2 + ps[[j]]^2 + ps[[k]]^2, {i, Length[ps]}, {j, i, Length[ps]}, {k, j, Length[ps]}]]; t = Select[t, # <= nn &]; t2 = Sort[Tally[t]]; u = Union[Transpose[t2][[2]]]; d = Complement[Range[u[[-1]]], u]; If[d == {}, nLim = u[[-1]], nLim = d[[1]]-1]; t3 = Table[Select[t2, #[[2]] == n &, 1][[1]], {n, nLim}]; Transpose[t3][[1]]

CROSSREFS

Cf. A025414, A025415, A214511, A214513.

Sequence in context: A009176 A087585 A297503 * A220068 A247745 A098647

Adjacent sequences:  A214509 A214510 A214511 * A214513 A214514 A214515

KEYWORD

nonn

AUTHOR

T. D. Noe, Jul 29 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 February 20 07:28 EST 2020. Contains 332067 sequences. (Running on oeis4.)