OFFSET
1,1
COMMENTS
All the terms are even, and every even positive integer occurs infinitely many times.
FORMULA
EXAMPLE
MATHEMATICA
z = 13; r = GoldenRatio; f[1] = {1}; f[2] = {1, 2};
f[n_] := f[n] = Join[f[n - 1], Most[f[n - 2]], {n}]; f[z];
g[n_] := g[n] = f[z][[n]]; Table[g[n], {n, 1, 100}] (* A035612 *)
Table[g[Floor[n*r]], {n, 1, (1/r) Length[f[z]]}] (* A255670 *)
Table[g[Floor[n*r^2]], {n, 1, (1/r^2) Length[f[z]]}] (* A255671 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Mar 03 2015
STATUS
approved