cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A025298 Numbers that are the sum of 2 nonzero squares in 7 or more ways.

This page as a plain text file.
%I A025298 #21 Aug 05 2021 07:31:41
%S A025298 27625,32045,40885,45305,47125,55250,58565,60125,61625,64090,66625,
%T A025298 67405,69745,71825,77285,78625,80665,81770,86125,87125,90610,91205,
%U A025298 93925,94250,98345,98605,99125,99905,101065,105625,107185,110500,111605,112625
%N A025298 Numbers that are the sum of 2 nonzero squares in 7 or more ways.
%H A025298 Robert Price, <a href="/A025298/b025298.txt">Table of n, a(n) for n = 1..100</a>
%H A025298 <a href="/index/Su#ssq">Index entries for sequences related to sums of squares</a>
%t A025298 Parallelize[Select[Range[120000],Length[PowersRepresentations[#,2,2]]>6&]]  (* _Harvey P. Dale_, Feb 19 2011 *)
%t A025298 nn = 112625; 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, _?(# >= 7 &)]] (* _T. D. Noe_, Apr 07 2011 *)
%Y A025298 Cf. A025290, A025297, A025299, A025335.
%K A025298 nonn
%O A025298 1,1
%A A025298 _David W. Wilson_