OFFSET
1,1
COMMENTS
See A195770 for definitions of k-Pythagorean triple, primitive k-Pythagorean triple, and lists of related sequences.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
F:= proc(a)
sort(select(t -> subs(t, b) >= a and subs(t, c) > 0 and igcd(a, subs(t, b), subs(t, c)) = 1, [isolve](4*a^2 + 4*b^2 + a*b = 4*c^2)), (s, t) -> subs(s, b) <= subs(t, b))
end proc:
seq(op(map(t -> subs(t, b), F(a))), a=1..100); # Robert Israel, Dec 20 2024
MATHEMATICA
(See A196259.)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Sep 30 2011
EXTENSIONS
Corrected by Robert Israel, Dec 25 2024
STATUS
approved