A025300 Numbers that are the sum of 2 nonzero squares in 9 or more ways.

71825, 93925, 122525, 138125, 143650, 156325, 160225, 173225, 187850, 204425, 209525, 223925, 226525, 235625, 244205, 245050, 257725, 267325, 273325, 276250, 287300, 292825, 296225, 300625, 308125, 308425, 312650, 320450, 333125, 337025

Offset

1,1

Links

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

Index entries for sequences related to sums of squares

Maple

N:= 4*10^5: # generate all entries <=N
V:= Vector(N, datatype=integer[4]):
for a from 1 to floor(sqrt(N)) do
  for b from a do
    n:= a^2 + b^2;
    if n > N then break fi;
    V[n]:= V[n]+1
od od:
select(t -> V[t] >= 9, [$1..N]); # Robert Israel, Jun 01 2025

Mathematica

nn = 337025; t = Table[0, {nn}]; lim = Floor[Sqrt[nn - 1]]; Do[num = i^2 + j^2; If[num <= nn, t[[num]]++], {i, lim}, {j, i}]; Flatten[Position[t, _?(# >= 9 &)]] (* T. D. Noe, Apr 07 2011 *)

Crossrefs

Cf. A025292, A025299, A025301, A025337.

Sequence in context: A283955 A114661 A119397 * A025319 A097245 A025292

Adjacent sequences: A025297 A025298 A025299 * A025301 A025302 A025303

Keyword

nonn

Author

David W. Wilson

Status

approved