A190505 n+[nr/s]+[nt/s]+[nu/s]; r=golden ratio, s=r+1, t=r+2, u=r+3.

3, 8, 13, 18, 22, 27, 32, 37, 41, 46, 51, 56, 60, 65, 70, 75, 79, 84, 89, 94, 99, 103, 108, 113, 118, 122, 127, 132, 137, 141, 146, 151, 156, 160, 165, 170, 175, 180, 184, 189, 194, 199, 203, 208, 213, 218, 222, 227, 232, 237, 241, 246, 251, 256, 261, 265, 270, 275, 280, 284, 289, 294, 299, 303, 308, 313, 318, 322, 327, 332, 337

Offset

1,1

Comments

See A190504.

Links

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

Mathematica

(See A190504.)
Module[{r=GoldenRatio, s, t, u}, s=r+1; t=r+2; u=r+3; Table[n+Floor[(n r)/s]+ Floor[(n t)/s]+Floor[(n u)/s], {n, 80}]] (* Harvey P. Dale, Aug 09 2013 *)

Crossrefs

Cf. A190504.

Sequence in context: A010064 A310304 A133330 * A310305 A184921 A282025

Adjacent sequences: A190502 A190503 A190504 * A190506 A190507 A190508

Keyword

nonn

Author

Clark Kimberling, May 11 2011

Status

approved