A138606 List first F(1) odd numbers, then first F(2) even numbers (starting from 2), then the next F(3) odd numbers, then the next F(4) even numbers, etc., where F(n) = A000045(n), the n-th Fibonacci number.
1, 2, 3, 5, 4, 6, 8, 7, 9, 11, 13, 15, 10, 12, 14, 16, 18, 20, 22, 24, 17, 19, 21, 23, 25, 27, 29, 31, 33, 35, 37, 39, 41, 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50, 52, 54, 56, 58, 60, 62, 64, 66, 43, 45, 47, 49, 51, 53, 55, 57, 59, 61, 63, 65, 67, 69, 71, 73, 75, 77
Offset: 1
Examples
Let us separate the positive integers into odd (A005408) and even numbers (A005843): 1,3,5,7,9,11,13,15,17,19,21,23,25,27,29,... 2,4,6,8,10,12,14,16,18,20,22,24,26,28,30,... then we get the following subsequences: S1={1} S2={2} S3={3,5} S4={4,6,8} S5={7,9,11,13,15} S6={10,12,14,16,18,20,22,24} ... and concatenating them S1/S2/S3/S4/S5/... gives this sequence.
Links
Programs
-
Mathematica
o = 1; e = 2; Flatten@Table[If[OddQ[n], Range[o, (o += 2 Fibonacci[n]) - 1, 2], Range[e, (e += 2 Fibonacci[n]) - 1, 2]], {n, 9}] (* Ivan Neretin, Sep 04 2017 *)
Formula
Extensions
Edited, extended and Scheme code added by Antti Karttunen, Oct 05 2009
Comments