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

5, 11, 18, 24, 31, 36, 43, 49, 56, 62, 67, 74, 80, 87, 93, 100, 105, 112, 118, 124, 131, 136, 143, 149, 156, 162, 169, 174, 181, 187, 193, 200, 205, 212, 218, 225, 231, 238, 243, 249, 256, 262, 269, 274, 281, 287, 294, 300, 307, 312, 318, 325, 331, 338, 343, 350, 356, 363, 369, 374, 381, 387, 394, 400, 407, 412, 419, 425, 432, 438, 443, 450

Offset

1,1

Comments

See A190364.

Links

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

Formula

A190364: a(n) = n + [n/2] + [n*sqrt(3/2)] + [n*sqrt(1/6)].

A190365: b(n) = 3*n + [n*sqrt(6)] + [n*sqrt(2/3)].

A190366: c(n) = n + [n*sqrt(2/3)] + [n*sqrt(1/6)] + [n/3].

A190367: d(n) = 4*n + [n*sqrt(6)] + [n*sqrt(3/2)].

Mathematica

Table[3*n + Floor[n*Sqrt[6]] + Floor[n*Sqrt[2/3]], {n, 1, 30}] (* G. C. Greubel, Jan 31 2018 *)

Prog

(PARI) for(n=1, 30, print1(3*n + floor(n*sqrt(6)) + floor(n*sqrt(2/3)), ", ")) \\  G. C. Greubel, Jan 31 2018
(Magma) [3*n + Floor(n*Sqrt(6)) + Floor(n*Sqrt(2/3)): n in [1..30]]; // G. C. Greubel, Jan 31 2018

Crossrefs

Cf. A190364, A190365, A190366, A190367.

Sequence in context: A184822 A145005 A004083 * A056000 A080566 A094684

Adjacent sequences: A190362 A190363 A190364 * A190366 A190367 A190368

Keyword

nonn

Author

Clark Kimberling, May 09 2011

Status

approved