1,1

G. C. Greubel, Table of n, a(n) for n = 1..5450

u = Sin[2Pi/5]; v = Cos[2Pi/5];

f[n_] := Floor[n*u + n*v] - Floor[n*u] - Floor[n*v]

t = Table[f[n], {n, 1, 120}] (* A190230 *)

Flatten[Position[t, 0]] (* A190231 *)

Flatten[Position[t, 1]] (* A190232 *)

Cf. A190230, A190232.

Sequence in context: A168158 A278738 A060228 * A191875 A194418 A094764

Adjacent sequences: A190228 A190229 A190230 * A190232 A190233 A190234

nonn

Clark Kimberling, May 06 2011

approved