cp's OEIS Frontend

A373327 Records of A064784.

%I A373327 #12 Dec 19 2024 23:40:34
%S A373327 0,2,6,9,14,20,21,28,35,44,51,57,62,75,80,84,100,104,107,126,129,131,
%T A373327 132,155,156,182,209,237,266,291,321,344,375,396,428,461,480,514,531,
%U A373327 566,602,617,654,667,705,744,755,795,804,845,852,894,937,942,986,989,1034
%N A373327 Records of A064784.
%H A373327 Robert Israel, <a href="/A373327/b373327.txt">Table of n, a(n) for n = 1..10000</a>
%p A373327 R:= 0: m:= 0: count:= 1:
%p A373327 for i from 1 while count < 100 do
%p A373327   t:= i*(i+1)/2;
%p A373327   v:= t - floor(sqrt(t))^2;
%p A373327   if v > m then
%p A373327     R:= R,v; m:= v; count:= count+1;
%p A373327   fi
%p A373327 od:
%p A373327 R; # _Robert Israel_, Dec 19 2024
%o A373327 (PARI) a373327(nmax) = {my(m=-oo); for(n=0, nmax, my(T=n*(n+1)/2, d=T-sqrtint(T)^2); if(d>m, print1(d, ", "); m=d))};
%o A373327 a373327(750)
%Y A373327 A373328 gives the corresponding positions.
%Y A373327 Cf. A000217, A000290, A128549.
%K A373327 nonn
%O A373327 1,2
%A A373327 _Hugo Pfoertner_, Jun 01 2024