OFFSET
1,1
COMMENTS
EXAMPLE
MATHEMATICA
r = (1 + Sqrt[5])/2; z = 3000;
f[n_] := Floor[(n + 1) r] - Floor[n r] - 1 (* A096270 *)
u = Table [f[2 n], {n, 0, Floor[z/2]}]; (* A339051 *)
v = Table [f[2 n + 1], {n, 0, Floor[z/2]}]; (* A339052 *)
a[n_] := Select[Range[z], Take[v, n] == Take[u, {#, # + n - 1}] &, 1]
Flatten[Table[a[n], {n, 1, 300}]] (* A339053 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Dec 08 2020
STATUS
approved