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
KEYWORD
nonn
AUTHOR
Henry Bottomley, May 22 2000
STATUS
approved