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,1

Links

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

Formula

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

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 *)

Crossrefs

Cf. A184658.

Sequence in context: A310026 A213732 A247909 * A026274 A137910 A022850

Adjacent sequences: A184656 A184657 A184658 * A184660 A184661 A184662

Keyword

nonn

Author

Clark Kimberling, Jan 19 2011

Status

approved