A184749 a(n) = floor(n*s+h-h*s), where s = (7 + sqrt(5))/4, h = -1/2; complement of A184748.

2, 5, 7, 9, 12, 14, 16, 19, 21, 23, 26, 28, 30, 32, 35, 37, 39, 42, 44, 46, 49, 51, 53, 56, 58, 60, 62, 65, 67, 69, 72, 74, 76, 79, 81, 83, 86, 88, 90, 93, 95, 97, 99, 102, 104, 106, 109, 111, 113, 116, 118, 120, 123, 125, 127, 129, 132, 134, 136, 139, 141, 143, 146, 148, 150, 153, 155, 157, 159, 162, 164, 166

Offset

1,1

Links

Adam Hugill, Table of n, a(n) for n = 1..10000

Mathematica

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

Prog

(Python)
from math import floor, sqrt
s=(7+sqrt(5))/4
h=-1/2
n=50 #number of terms
result = []
for i in range(1, n+1):
    ans = floor(i*s+h-h*s)
    result.append(ans)
print(result)
# Adam Hugill, Feb 22 2022

Crossrefs

Cf. A184748.

Sequence in context: A246706 A304498 A184743 * A047386 A187416 A243808

Adjacent sequences: A184746 A184747 A184748 * A184750 A184751 A184752

Keyword

nonn

Author

Clark Kimberling, Jan 20 2011

Status

approved