A396390 a(n) = r(n,n), where r(1,k)=f(k)=floor(k*c), r(n,k)=f(r(n-1,k)), c=golden ratio.

1, 4, 9, 22, 48, 90, 179, 323, 611, 1132, 1975, 3572, 6389, 10947, 19309, 32839, 57315, 99502, 167762, 289155, 485573, 832041, 1421295, 2374728, 4038808, 6852739, 11405775, 19286971, 32039014, 54018522, 90928382, 150649790, 252983945, 424266973, 701408734

Offset

1,2

Comments

a(n + 1)/a(n) approaches c erratically.

Links

Table of n, a(n) for n=1..35.

Mathematica

c = GoldenRatio; f[k_] := f[k] = Floor[c*k];
r[1, k_] := f[k]; r[n_, k_] := r[n, k] = f[r[n - 1, k]];
Table[r[n, n], {n, 1, 100}]

Crossrefs

Cf. A001622, A396385, A396391, A396392, A396393.

Sequence in context: A253289 A032288 A336975 * A076859 A386270 A042833

Adjacent sequences: A396387 A396388 A396389 * A396391 A396392 A396393

Keyword

nonn

Author

Clark Kimberling, May 24 2026

Status

approved