A184735 a(n)=floor(n*s+h-h*s), where s=(3+sqrt(5))/2, h=1/3; complement of A184734.

2, 4, 7, 9, 12, 15, 17, 20, 23, 25, 28, 30, 33, 36, 38, 41, 43, 46, 49, 51, 54, 57, 59, 62, 64, 67, 70, 72, 75, 78, 80, 83, 85, 88, 91, 93, 96, 98, 101, 104, 106, 109, 112, 114, 117, 119, 122, 125, 127, 130, 132, 135, 138, 140, 143, 146, 148, 151, 153, 156, 159, 161, 164, 167, 169, 172, 174, 177, 180, 182, 185, 187, 190, 193, 195, 198, 201, 203, 206, 208, 211, 214, 216, 219, 221, 224, 227, 229, 232, 235, 237, 240, 242, 245, 248, 250, 253, 256, 258, 261, 263, 266, 269, 271, 274, 276, 279, 282, 284, 287, 290, 292, 295, 297, 300, 303, 305, 308, 311, 313

Offset

1,1

Links

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

Formula

a(n)=floor(n*s+h-h*s), where s=(3+sqrt(5))/2, h=1/3.

Mathematica

r=(1+sqrt(5))/2, h=1/3; s=r/(r-1);
Table[Floor[n*r+h], {n, 1, 120}]  (* A184734 *)
Table[Floor[n*s+h-h*s], {n, 1, 120}]  (*A184735 *)
With[{c=(3+Sqrt[5])/2}, Table[Floor[c*n+1/3-c/3], {n, 120}]] (* Harvey P. Dale, Nov 04 2024 *)

Crossrefs

Cf. A184734, A184659.

Sequence in context: A247912 A186321 A026356 * A184583 A189379 A226595

Adjacent sequences: A184732 A184733 A184734 * A184736 A184737 A184738

Keyword

nonn

Author

Clark Kimberling, Jan 20 2011

Status

approved