A194151 - OEIS

A194151

Beatty sequence for (1/2)*sqrt(5); complement of A194152.

1, 2, 3, 4, 5, 6, 7, 8, 10, 11, 12, 13, 14, 15, 16, 17, 19, 20, 21, 22, 23, 24, 25, 26, 27, 29, 30, 31, 32, 33, 34, 35, 36, 38, 39, 40, 41, 42, 43, 44, 45, 46, 48, 49, 50, 51, 52, 53, 54, 55, 57, 58, 59, 60, 61, 62, 63, 64, 65, 67, 68, 69, 70, 71, 72, 73, 74, 76, 77

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

LINKS

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

MATHEMATICA

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 *)