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

1, 4, 7, 10, 11, 15, 17, 20, 24, 25, 28, 31, 34, 35, 39, 42, 44, 48, 49, 53, 55, 58, 62, 63, 66, 69, 72, 73, 77, 80, 82, 86, 87, 90, 93, 96, 97, 101, 104, 107, 110, 111, 115, 117, 120, 124, 125, 128, 131, 134, 135, 139, 142, 144, 148, 149, 152, 155, 158, 162, 163, 166, 169, 172, 173, 177, 179, 182, 186, 187, 190, 193, 196, 197, 201, 204

Offset

1,2

Comments

See A190504.

Links

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

Mathematica

(See A190504.)
Module[{g=GoldenRatio}, Table[n+Floor[n*g/(g+3)]+Floor[n (g+1)/(g+3)]+Floor[ n (g+2)/(g+3)], {n, 100}]] (* Harvey P. Dale, Aug 20 2020 *)

Crossrefs

Cf. A190504.

Sequence in context: A082206 A115566 A364840 * A087298 A237707 A211642

Adjacent sequences: A190504 A190505 A190506 * A190508 A190509 A190510

Keyword

nonn

Author

Clark Kimberling, May 11 2011

Status

approved