A396390 - OEIS

%I #6 May 29 2026 00:52:13

%S 1,4,9,22,48,90,179,323,611,1132,1975,3572,6389,10947,19309,32839,

%T 57315,99502,167762,289155,485573,832041,1421295,2374728,4038808,

%U 6852739,11405775,19286971,32039014,54018522,90928382,150649790,252983945,424266973,701408734

%N 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.

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

%t c = GoldenRatio; f[k_] := f[k] = Floor[c*k];

%t r[1, k_] := f[k]; r[n_, k_] := r[n, k] = f[r[n - 1, k]];

%t Table[r[n, n], {n, 1, 100}]

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

%K nonn

%O 1,2

%A _Clark Kimberling_, May 24 2026