A196264 Positive integers c in primitive (1/4)-Pythagorean triples (a,b,c) satisfying a<=b, in order of increasing a and then increasing b.
3, 16, 33, 71, 22, 193, 46, 29, 24, 22, 222, 37, 886, 163, 69, 46, 394, 107, 953, 232, 2083, 43, 352, 191, 258, 1104, 421, 3784, 67, 87, 253, 613, 759, 1276, 1797, 317, 2843, 79, 5989, 109, 946, 348, 274, 636, 201, 967, 8698, 1641, 132, 298, 2662, 3687, 5741, 106, 478, 1324, 11911, 1828, 113, 947
Offset: 1
Keywords
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Programs
-
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, c), F(a))), a=1..100); # Robert Israel, Dec 25 2024
-
Mathematica
(See A196259.)
Extensions
Corrected by Robert Israel, Dec 25 2024
Comments