cp's OEIS Frontend

A341255 Let f(n) = floor(r*floor(r*n)) = A341254(n), where r = (2 + sqrt(5))/2. Let a(1) = 1. Then a(n) = f(a(n-1)) for n >= 2.

%I A341255 #6 Dec 10 2023 17:25:18
%S A341255 1,4,16,69,309,1385,6212,27866,125008,560793,2515754,11285842,
%T A341255 50629052,227125366,1018899829,4570853893,20505161277,91987547377,
%U A341255 412662390616,1851231536059,8304750512850,37255675336820,167131492108634,749763234780300,3363488838254558
%N A341255 Let f(n) = floor(r*floor(r*n)) = A341254(n), where r = (2 + sqrt(5))/2.  Let a(1) = 1. Then a(n) = f(a(n-1)) for n >= 2.
%t A341255 z = 40; u = GoldenRatio;
%t A341255 r = u + 1/2; f[x_] := Floor[r*Floor[r*x]];
%t A341255 Table[f[n], {n, 1, z}]  (* A341254 *)
%t A341255 a[1] = 1; a[n_] := f[a[n - 1]];
%t A341255 Table[a[n], {n, 1, z}]  (* A341255 *)
%Y A341255 Cf. A339828, A341240, A341249.
%K A341255 nonn,easy
%O A341255 1,2
%A A341255 _Clark Kimberling_, Feb 13 2021