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

1, 3, 4, 6, 8, 10, 11, 13, 15, 17, 18, 20, 22, 24, 25, 27, 29, 31, 33, 34, 36, 38, 40, 41, 43, 45, 47, 48, 50, 52, 54, 55, 57, 59, 61, 63, 64, 66, 68, 70, 71, 73, 75, 77, 78, 80, 82, 84, 85, 87, 89, 91, 92, 94, 96, 98, 100, 101, 103, 105, 107, 108, 110, 112, 114, 115, 117, 119, 121, 122, 124, 126, 128, 130, 131, 133

Offset

1,2

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
r=4-sqrt(5)
h=-1/2
n=50 #number of terms
result = []
for i in range(1, n+1):
    ans = floor(i*r+h)
    result.append(ans)
print(result)
# Adam Hugill, Feb 23 2022

Crossrefs

Cf. A184749.

Sequence in context: A184006 A187415 A047298 * A184742 A232499 A246705

Adjacent sequences: A184745 A184746 A184747 * A184749 A184750 A184751

Keyword

nonn

Author

Clark Kimberling, Jan 20 2011

Status

approved