A194031
Inverse permutation of A194030; contains every positive integer exactly once.
Original entry on oeis.org
1, 2, 4, 3, 7, 5, 6, 11, 8, 9, 10, 15, 16, 12, 13, 14, 20, 21, 28, 36, 22, 17, 18, 19, 26, 27, 35, 44, 45, 55, 66, 78, 91, 29, 23, 24, 25, 33, 34, 43, 53, 54, 65, 77, 90, 37, 30, 31, 32, 41, 42, 52, 63, 64, 76
Offset: 1
A194029
Natural fractal sequence of the Fibonacci sequence (1, 2, 3, 5, 8, ...).
Original entry on oeis.org
1, 1, 1, 2, 1, 2, 3, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34
Offset: 1
The sequence (1, 2, 3, 5, 8, 13, ...) is used to place '1's in positions numbered 1, 2, 3, 5, 8, 13, ... Then gaps are filled in with consecutive counting numbers:
1, 1, 1, 2, 1, 2, 3, 1, 2, 3, 4, 5, 1, ...
From _Omar E. Pol_, May 28 2012: (Start)
Written as an irregular triangle the sequence begins:
1;
1;
1, 2;
1, 2, 3;
1, 2, 3, 4, 5;
1, 2, 3, 4, 5, 6, 7, 8;
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13;
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21; ...
The row lengths are A000045(n).
(End)
- Clark Kimberling, "Fractal sequences and interspersions," Ars Combinatoria 45 (1997) 157-168.
-
T:= n-> $1..(<<0|1>, <1|1>>^n)[1, 2]:
seq(T(n), n=1..10); # Alois P. Heinz, Dec 11 2024
-
z = 40;
c[k_] := Fibonacci[k + 1];
c = Table[c[k], {k, 1, z}] (* A000045 *)
f[n_] := If[MemberQ[c, n], 1, 1 + f[n - 1]]
f = Table[f[n], {n, 1, 800}] (* A194029 *)
r[n_] := Flatten[Position[f, n]]
t[n_, k_] := r[n][[k]]
TableForm[Table[t[n, k], {n, 1, 8}, {k, 1, 7}]]
p = Flatten[Table[t[k, n - k + 1], {n, 1, 13}, {k, 1, n}]] (* A194030 *)
q[n_] := Position[p, n]; Flatten[Table[q[n], {n, 1, 80}]] (* A194031 *)
Flatten[Range[Fibonacci[Range[66]]]] (* Birkas Gyorgy, Jun 30 2012 *)
A345252
2-1-Fibonacci cohort array, a rectangular array T(n,k) read by downward antidiagonals.
Original entry on oeis.org
1, 2, 3, 4, 6, 5, 7, 11, 10, 8, 12, 19, 18, 16, 9, 20, 32, 31, 29, 17, 13, 33, 53, 52, 50, 30, 26, 14, 54, 87, 86, 84, 51, 47, 27, 15, 88, 142, 141, 139, 85, 81, 48, 28, 21, 143, 231, 230, 228, 140, 136, 82, 49, 42, 22, 232, 375, 374, 372, 229, 225, 137, 83, 76
Offset: 1
Northwest corner of {T(n,k)}:
k=1 k=2 k=3 k=4 k=5 k=6 ...
n=0: 1, 2, 4, 7, 12, 20, ...
n=1: 3, 6, 11, 19, 32, 53, ...
n=2: 5, 10, 18, 31, 52, 86, ...
n=3: 8, 16, 29, 50, 84, 139, ...
n=4: 9, 17, 30, 51, 85, 140, ...
...
Northwest corner of {T(n,k)} in maximal Fibonacci expansion (see link):
k=1 k=2 k=3 ...
n=0: F(1), F(1)+F(2), F(1)+F(2)+F(3), ...
n=1: F(1)+F(3), F(1)+F(3)+F(4), F(1)+F(3)+F(4)+F(5), ...
n=2: F(1)+F(2)+F(4), F(1)+F(2)+F(4)+F(5), F(1)+F(2)+F(4)+F(5)+F(6), ...
...
Northwest corner of {T(n,k)} as "Fibonacci gaps," or differences between successive indices in maximal Fibonacci expansion above, (see link):
k=1 k=2 k=3 k=4 k=5 k=6 ...
n=0: *, 1, 11, 111, 1111, 11111, ...
n=1: 2, 21, 211, 2111, 21111, 211111, ...
n=2: 12, 121, 1211, 12111, 121111, 1211111, ...
n=3: 22, 221, 2211, 22111, 221111, 2211111, ...
n=4: 122, 1221, 12211, 122111, 1221111, 12211111, ...
...
Cf.
A000027,
A000045,
A000071,
A000201,
A001950,
A035513,
A059893,
A083047,
A130233,
A132817,
A191436,
A194030,
A232560,
A345253,
A345254.
-
(* Define A000045 *)
F[n_] := Fibonacci[n]
(* Defined A130233 *)
Finv[n_] := Floor[Log[GoldenRatio, Sqrt[5]n + 1]]
(* Simplified Formula *)
MatrixForm[Table[n + F[Finv[n] + k + 2] - F[Finv[n] + 2], {n, 0, 4}, {k, 1, 6}]]
(* Branching Formula *)
MatrixForm[Table[NestList[Function[# + F[Finv[#]]], n + F[Finv[n] + 1], 5], {n, 0, 4}]]
A383977
Sequence of successive merge positions when Fibonacci-sorting an infinite list.
Original entry on oeis.org
1, 2, 4, 3, 6, 7, 5, 9, 10, 12, 11, 8, 14, 15, 17, 16, 19, 20, 18, 13, 22, 23, 25, 24, 27, 28, 26, 30, 31, 33, 32, 29, 21, 35, 36, 38, 37, 40, 41, 39, 43, 44, 46, 45, 42, 48, 49, 51, 50, 53, 54, 52, 47, 34, 56, 57, 59, 58, 61, 62, 60, 64, 65, 67, 66, 63, 69, 70, 72, 71, 74, 75
Offset: 1
The first 7 merges when sorting a list of >= 8 values with Fibonacci sort are as follows:
(8|7)6 5 4 3 2 1 ...
(7 8|6)5 4 3 2 1 ...
6 7 8(5|4)3 2 1 ...
(6 7 8|4 5)3 2 1 ...
4 5 6 7 8(3|2)1 ...
4 5 6 7 8(2 3|1)...
(4 5 6 7 8|1 2 3)...
1 2 3 4 5 6 7 8 ...
The offsets of the "splitting positions" (marked by | characters) in the array are: 1, 2, 4, 3, 6, 7, 5...
These are a(1) through a(7).
-
-- "a" is a list of all sequence values
-- e.g. "take 7 a" evaluates to [1, 2, 4, 3, 6, 7, 5]
import Data.List
fibs :: [Int]
fibs = 0 : 1 : zipWith (+) fibs (tail fibs)
fib :: Int -> Int
fib n = fibs !! n
a :: [Int]
a = concat $ map (\i -> let
f = fib (i + 1)
fPrev = fib i
in (map (+ f) (take (fPrev - 1) a)) ++ [f]) [1..]
-
def fib(n):
return n if n < 2 else fib(n - 1) + fib(n - 2)
def a_first(n):
# returns an array of the first n terms
if n == 0: return []
f = []
i = 1
while True:
for j in range(fib(i) - 1):
f.append(f[j] + fib(i + 1))
if len(f) == n: return f
f.append(fib(i + 1))
if len(f) == n: return f
i += 1
A345347
Find the largest k with F(k) <= n, where F(k) is the k-th Fibonacci number. a(n) = F(k+2) + n.
Original entry on oeis.org
1, 4, 7, 11, 12, 18, 19, 20, 29, 30, 31, 32, 33, 47, 48, 49, 50, 51, 52, 53, 54, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 199, 200, 201, 202, 203, 204
Offset: 0
The initial Fibonacci numbers are F(0)..F(5) = 0, 1, 1, 2, 3, 5.
For n = 0, the largest k with F(k) <= 0 is k = 0, so F(k+2) = F(2) = 1, so a(0) = 1 + 0 = 1.
For n = 1, the largest k with F(k) <= 1 is k = 2, so F(k+2) = F(4) = 3, so a(1) = 3 + 1 = 4.
For n = 4, the largest k with F(k) <= 4 is k = 4, so F(k+2) = F(6) = 8, so a(4) = 8 + 4 = 12.
In the paragraph that follows we use the Wythoff array-based definition from the start of the comments.
Every positive integer appears once (only) in the Wythoff array. 0 is not positive, so does not appear in the array, so is not in the sequence. 1 is in the sequence by definition. 2 appears in Wythoff row 0, and 0 is not in the sequence, so 2 is not in the sequence. 4 appears in Wythoff row 1, and 1 is in the sequence, so 4 is in the sequence.
-
kmax=12;Flatten[Table[Range[Fibonacci[k]+Fibonacci[k-2],Fibonacci[k+1]-1],{k,2,kmax}]] (* Paolo Xausa, Jan 02 2022 *)
A108852[n_]:=1+Floor[Log[GoldenRatio,1+n*Sqrt[5]]];
nterms=100;Table[n+Fibonacci[1+A108852[n]],{n,0,nterms-1}](* Paolo Xausa, Jan 02 2022 *)
-
a(n) = my(k=0); while(fibonacci(k)<=n, k=k+1); n+fibonacci(k+1)
Showing 1-5 of 5 results.
Comments