A189385 a(n) = n + [n*r/t] + [n*s/t]; r=1, s=1/sqrt(2), t=1/sqrt(3).

3, 7, 11, 14, 19, 23, 27, 30, 35, 39, 43, 46, 50, 55, 58, 62, 66, 71, 74, 78, 82, 86, 90, 94, 98, 102, 106, 110, 114, 117, 121, 126, 130, 133, 137, 142, 146, 149, 153, 157, 162, 165, 169, 173, 177, 181, 185, 189, 193, 197, 201, 205, 208, 213, 217, 220, 224, 229, 233, 236, 240, 244, 249, 252, 256, 260, 265, 268, 272, 276, 279, 284, 288, 292, 295, 300, 304, 308, 311, 315, 320, 324, 327

Offset: 1

Author

Clark Kimberling, Apr 21 2011

Keywords

• nonn

Comments

See A189383.

Links

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

Crossrefs

Cf. A189383, A189384.

Programs

Mathematica

r=1; s=2^(-1/2); t=3^(-1/2);
a[n_] := n + Floor[n*s/r] + Floor[n*t/r];
b[n_] := n + Floor[n*r/s] + Floor[n*t/s];
c[n_] := n + Floor[n*r/t] + Floor[n*s/t]
Table[a[n], {n, 1, 120}]  (*A189383*)
Table[b[n], {n, 1, 120}]  (*A189384*)
Table[c[n], {n, 1, 120}]  (*A189385*)