A025344 Numbers that are the sum of 3 distinct nonzero squares in exactly 6 ways.

314, 329, 374, 426, 434, 458, 497, 530, 542, 546, 558, 594, 602, 605, 641, 650, 665, 693, 698, 705, 713, 714, 725, 741, 746, 750, 755, 766, 773, 774, 782, 818, 825, 833, 842, 845, 849, 861, 875, 882, 885, 902, 930, 934, 962, 966, 998, 1010, 1013, 1019, 1026, 1058

Offset

1,1

Links

Robert Israel, Table of n, a(n) for n = 1..4446

Index entries for sequences related to sums of squares

Maple

N:= 10^6; # to get all terms <= N
S:= Vector(N):
for a from 1 to floor(sqrt(N/3)) do
  for b from a+1 to floor(sqrt((N-a^2)/2)) do
    c:= [$(b+1) .. floor(sqrt(N-a^2-b^2))]:
    v:= map(t -> a^2 + b^2 + t^2, c):
    S[v]:= map(`+`, S[v], 1)
od od: select(t -> S[t]=6, [$1..N]); # Robert Israel, Jan 03 2016

Crossrefs

Sequence in context: A107115 A045290 A025352 * A219962 A186396 A107117

Adjacent sequences: A025341 A025342 A025343 * A025345 A025346 A025347

Keyword

nonn

Author

David W. Wilson

Status

approved