OFFSET
1,1
COMMENTS
Indices of record values in A056137.
EXAMPLE
For a right triangle with longest leg of 60, the lengths other sides are: 11,25,32,45. The corresponding hypotenuses are: 61,65,68,75. All triangles with a longest leg of less than 60 have 3 or fewer triangles.
PROG
(PARI) \\ b(n) is A056137(n)
b(n) = my(r=n^2); sumdiv(r, d, my(t=r/d-d); t>0 && t%2 == 0 && t^2<4*r)
upto(lim) = { my(m=0, L=List()); for(i=1, lim, if(numdiv(i^2)>2*m, my(t=b(i)); if(t>m, m=t; listput(L, i)))); Vec(L) } \\ Andrew Howroyd, Jul 10 2026
CROSSREFS
KEYWORD
nonn,new
AUTHOR
Richard R. Forberg, Jul 09 2026
EXTENSIONS
a(31)-a(33) corrected and more terms added by Andrew Howroyd, Jul 11 2026
STATUS
approved
