|
|
A211176
|
|
Numbers n which are the hypotenuse of a Pythagorean triple with n' as a leg, where n' is the arithmetic derivative of n.
|
|
1
|
|
|
125, 625, 23125, 142805, 210125, 371293, 7983625, 9370805, 25757525, 50062025, 120670225, 489766225, 881052625, 1471596725, 2307267625, 2489771125, 3145529225, 3474871553, 6975757441, 7977558641
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
n = 23125, n' = 19125 and sqrt(n^2-n'^2) = 13000.
|
|
MAPLE
|
with(numtheory); ListA211176:= proc(q)local a, n, p;
for n from 2 to q do a:=n*add(op(2, p)/op(1, p), p=ifactors(n)[2]);
if n<>a and type(sqrt(n^2-a^2), integer) then print(n); fi;
od; end: ListA211176(10^9);
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|