login
A190507
n+[nr/u]+[ns/u]+[nt/u]; r=golden ratio, s=r+1, t=r+2, u=r+3.
1
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.
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
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 11 2011
STATUS
approved