A055526 Shortest hypotenuse of a Pythagorean triangle with n as length of a leg.

5, 5, 13, 10, 25, 10, 15, 26, 61, 13, 85, 50, 17, 20, 145, 30, 181, 25, 29, 122, 265, 25, 65, 170, 45, 35, 421, 34, 481, 40, 55, 290, 37, 39, 685, 362, 65, 41, 841, 58, 925, 55, 51, 530, 1105, 50, 175, 130, 85, 65, 1405, 90, 73, 65, 95, 842, 1741, 61, 1861, 962, 65

Offset

3,1

Comments

Smallest k>n such that the squarefree part of k+n equals the squarefree part of k-n - Benoit Cloitre, May 26 2002

Links

Paolo Xausa, Table of n, a(n) for n = 3..1000

Formula

a(n) = sqrt(n^2+A055527(n)^2).

Mathematica

core[n_] := core[n] = Times @@ Map[#[[1]]^Mod[#[[2]], 2] &, FactorInteger[n]];
A055526[n_] := Block[{k = n}, While[core[++k+n] != core[k-n]]; k];
Array[A055526, 100, 3] (* Paolo Xausa, Feb 29 2024 *)

Prog

(PARI) for(n=3, 105, s=n+1; while(abs(core(s+n)-core(s-n))>0, s++); print1(s, ", "))

Crossrefs

Cf. A009112, A046079, A046080, A046081, A054435, A054436, A055522, A055523, A055524, A055525, A055527.

Sequence in context: A122213 A224067 A049735 * A146984 A055524 A132981

Adjacent sequences: A055523 A055524 A055525 * A055527 A055528 A055529

Keyword

nonn

Author

Henry Bottomley, May 22 2000

Status

approved