A373327 Records of A064784.
0, 2, 6, 9, 14, 20, 21, 28, 35, 44, 51, 57, 62, 75, 80, 84, 100, 104, 107, 126, 129, 131, 132, 155, 156, 182, 209, 237, 266, 291, 321, 344, 375, 396, 428, 461, 480, 514, 531, 566, 602, 617, 654, 667, 705, 744, 755, 795, 804, 845, 852, 894, 937, 942, 986, 989, 1034
Offset: 1
Keywords
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Programs
-
Maple
R:= 0: m:= 0: count:= 1: for i from 1 while count < 100 do t:= i*(i+1)/2; v:= t - floor(sqrt(t))^2; if v > m then R:= R,v; m:= v; count:= count+1; fi od: R; # Robert Israel, Dec 19 2024 -
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))}; a373327(750)