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

4, 10, 14, 20, 24, 30, 35, 40, 45, 50, 55, 60, 65, 71, 75, 81, 85, 91, 96, 101, 106, 111, 116, 121, 126, 132, 136, 142, 146, 152, 157, 162, 167, 172, 177, 182, 187, 193, 197, 203, 207, 213, 217, 223, 228, 233, 238, 243, 248, 254, 258, 264, 268, 274, 278, 284, 289, 294, 299, 304, 309, 315, 319, 325, 329, 335, 339, 345, 350, 355, 360

Offset

1,1

Comments

See A190344.

Links

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

Formula

A190344: f(n) = n + [n*sqrt(5/2)] + [n*sqrt(2/5)].

A190345: g(n) = n + [n*sqrt(2/5)] + [2*n/5].

A190346: h(n) = 3*n + [n*sqrt(5/2)] + [n/2].

Mathematica

r=1; s=(5/2)^(1/2); t=1/s;
f[n_] := n + Floor[n*s/r] + Floor[n*t/r];
g[n_] := n + Floor[n*r/s] + Floor[n*t/s];
h[n_] := n + Floor[n*r/t] + Floor[n*s/t];
Table[f[n], {n, 1, 120}]  (* A190344 *)
Table[g[n], {n, 1, 120}]  (* A190345 *)
Table[h[n], {n, 1, 120}]  (* A190346 *)

Prog

(PARI) for(n=1, 100, print1(3*n + floor(n*sqrt(5/2)) + floor(n/2), ", ")) \\ G. C. Greubel, Apr 05 2018
(Magma) [3*n + Floor(n*Sqrt(5/2)) + Floor(n/2): n in [1..100]]; // G. C. Greubel, Apr 05 2018

Crossrefs

Cf. A190344, A190345.

Sequence in context: A310413 A146763 A310414 * A001581 A310415 A310416

Adjacent sequences: A190343 A190344 A190345 * A190347 A190348 A190349

Keyword

nonn

Author

Clark Kimberling, May 09 2011

Status

approved