1,2

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

r=Sqrt[5]/2;

c[k_]:=Floor[k*r];

Table[c[k], {k, 1, 90}] (* A194151 *)

s=5+2*Sqrt[5];

d[k_]:=Floor[k*s];

Table[d[k], {k, 1, 90}] (* A194152 *)

Cf. A194152.

Sequence in context: A037479 A088481 A007095 * A020663 A255808 A168183

Adjacent sequences: A194148 A194149 A194150 * A194152 A194153 A194154

nonn

Clark Kimberling, Aug 17 2011

approved