LINKS
Robert Israel, <a href="/A195770/b195770_1.txt">Table of n, a(n) for n = 1..10000</a>
The OEIS is supported by the many generous donors to the OEIS Foundation.
Revision History for A195770
(Bold, blue-underlined text is an addition; faded, red-underlined text is aShowing entries 1-10 | older changes
Positive integer a is repeated m times, where m is the number of 1-Pythagorean triples (a,b,c) satisfying a<=b.
(history; published version)
(history; published version)
STATUS
reviewed
approved
STATUS
proposed
reviewed
STATUS
editing
proposed
MATHEMATICA
Table[x[n], {n, 1, z7}] (* A195770 this sequence *)
STATUS
proposed
editing
STATUS
editing
proposed
EXTENSIONS
Name corrected by Robert Israel, Jul 04 2024
STATUS
proposed
editing
STATUS
editing
proposed
LINKS
Robert Israel, <a href="/A195770/b195770_1.txt">Table of n, a(n) for n = 1..10000</a>
MAPLE
f:= proc(a) local F, r, u, b;
r:= 3*a^2;
nops(select(proc(t) local b; b:= (r/t - t - 2*a)/4;
(t + r/t) mod 4 = 0 and b::integer and b >= a end proc, numtheory:-divisors(3*a^2)));
end proc:
seq(a$f(a), a=1..100); # Robert Israel, Jul 04 2024
NAME
Positive integers integer a for which there is a repeated m times, where m is the number of 1-Pythagorean triple triples (a,b,c) satisfying a<=b.
STATUS
approved
editing