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

7, 14, 22, 29, 38, 45, 53, 60, 69, 76, 83, 91, 98, 107, 114, 122, 129, 138, 145, 152, 160, 167, 176, 183, 191, 198, 207, 214, 222, 229, 236, 245, 252, 260, 267, 276, 283, 291, 298, 305, 314, 321, 329, 336, 345, 352, 360, 367, 376, 383, 390, 398, 405, 414, 421, 429, 436, 445, 452, 459, 467, 474, 483, 490, 498, 505, 514, 521, 529

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[4*n + Floor[n*Sqrt[3/2]] + Floor[n*Sqrt[6]], {n, 1, 50}] (* G. C. Greubel, Jan 31 2018 *)

Prog

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

Crossrefs

Cf. A190364, A190365, A190366.

Sequence in context: A061823 A018890 A118502 * A246172 A366112 A297426

Adjacent sequences: A190364 A190365 A190366 * A190368 A190369 A190370

Keyword

nonn

Author

Clark Kimberling, May 09 2011

Status

approved