OFFSET
1,1
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = floor(sqrt(A347594(n-1)^2 + n^2)) + 1.
MATHEMATICA
b[0]=1; b[m_]:=b[m]=(k=1; While[!IntegerQ@Sqrt[b[m-1]^2+m^2+k], k++]; k);
a[n_]:=a[n]=Sqrt[b[n-1]^2+n^2+b[n]]; Array[a, 100] (* Giorgos Kalogeropoulos, Sep 12 2021 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Sep 12 2021
STATUS
editing