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

3, 5, 8, 11, 13, 16, 18, 21, 24, 26, 29, 31, 34, 37, 39, 42, 45, 47, 50, 52, 55, 58, 60, 63, 65, 68, 71, 73, 76, 79, 81, 84, 86, 89, 92, 94, 97, 100, 102, 105, 107, 110, 113, 115, 118, 120, 123, 126, 128, 131, 134, 136, 139, 141, 144, 147, 149, 152, 155, 157, 160, 162, 165, 168, 170, 173, 175, 178, 181, 183, 186, 189, 191, 194, 196, 199, 202, 204, 207, 209, 212, 215, 217, 220, 223, 225, 228, 230, 233, 236, 238, 241, 244, 246, 249, 251, 254, 257, 259, 262, 264, 267, 270, 272, 275, 278, 280, 283, 285, 288, 291, 293, 296, 298, 301

Offset: 1

Author

Clark Kimberling, Jan 19 2011

Keywords

• nonn

Crossrefs

Cf. A184658.

Programs

Mathematica

r=(1+5^(1/2))/2; h=-1/3; s=r/(r-1);
Table[Floor[n*r+h],{n,1,120}]  (* A184658 *)
Table[Floor[n*s+h-h*s],{n,1,120}]  (* A184659 *)

Formula

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