A194101 -id:A194101 - cp's OEIS frontend

A194100 Natural interspersion of A194126; a rectangular array, by antidiagonals.

1, 6, 2, 13, 7, 3, 23, 14, 8, 4, 36, 24, 15, 9, 5, 51, 37, 25, 16, 10, 11, 69, 52, 38, 26, 17, 18, 12, 89, 70, 53, 39, 27, 28, 19, 20, 112, 90, 71, 54, 40, 41, 29, 30, 21, 138, 113, 91, 72, 55, 56, 42, 43, 31, 22, 166, 139, 114, 92, 73, 74, 57, 58, 44, 32, 33, 197

Offset: 1

Clark Kimberling, Aug 15 2011

See A194029 for definitions of natural fractal sequence and natural interspersion. Every positive integer occurs exactly once (and every pair of rows intersperse), so that as a sequence, A194100 is a permutation of the positive integers; its inverse is A194101.

			Northwest corner:
1...6...13...23...36
2...7...14...24...37
3...8...15...25...38
4...9...16...26...39
5...10..17...27...40
11..18..28...41...56

Cf. A194029, A194126, A193042, A194101.

z = 40; g = GoldenRatio;
c[k_] := -1 + Sum[Floor[j + j*g], {j, 1, k}];
c = Table[c[k], {k, 1, z}]  (* 194126 *)
f[n_] := If[MemberQ[c, n], 1, 1 + f[n - 1]]
f = Table[f[n], {n, 1, 800}]  (* A193042 *)
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, 16}, {k, 1, n}]]  (* A194100 *)
q[n_] := Position[p, n]; Flatten[Table[q[n], {n, 1, 80}]]  (* A194101 *)

A194104 Natural interspersion of A194102; a rectangular array, by antidiagonals.

Original entry on oeis.org

1, 3, 2, 7, 4, 5, 12, 8, 9, 6, 19, 13, 14, 10, 11, 27, 20, 21, 15, 16, 17, 36, 28, 29, 22, 23, 24, 18, 47, 37, 38, 30, 31, 32, 25, 26, 59, 48, 49, 39, 40, 41, 33, 34, 35, 73, 60, 61, 50, 51, 52, 42, 43, 44, 45, 88, 74, 75, 62, 63, 64, 53, 54, 55, 56, 46, 104, 89, 90

Offset: 1

Clark Kimberling, Aug 15 2011

See A194029 for definitions of natural fractal sequence and natural interspersion. Every positive integer occurs exactly once (and every pair of rows intersperse), so that as a sequence, A194100 is a permutation of the positive integers; its inverse is A194101.

			Northwest corner:
1...3...7...12...19
2...4...8...13...20
5...9...14..21...29
6...10..15..22...30
11..16..23..31...40

Cf. A194029, A194102, A194103, A194105.

z = 40; g = Sqrt[2];
c[k_] := Sum[Floor[j*g], {j, 1, k}];
c = Table[c[k], {k, 1, z}]  (* A194102 *)
f[n_] := If[MemberQ[c, n], 1, 1 + f[n - 1]]
f = Table[f[n], {n, 1, 800}]  (* A194103  new *)
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, 16}, {k, 1, n}]]  (* A194104 *)
q[n_] := Position[p, n]; Flatten[Table[q[n], {n, 1, 80}]]  (* A194105 *)

A193042 Natural fractal sequence of A194126.

Original entry on oeis.org

1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 6, 7, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 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, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17

Offset: 1

Clark Kimberling, Aug 15 2011

nonn

See A194029 for definitions of natural fractal sequence and natural interspersion.

Cf. A194029, A194126, A194100.

z = 40; g = GoldenRatio;
c[k_] := -1 + Sum[Floor[j + j*g], {j, 1, k}];
c = Table[c[k], {k, 1, z}]  (* A194126 *)
f[n_] := If[MemberQ[c, n], 1, 1 + f[n - 1]]
f = Table[f[n], {n, 1, 800}]  (* A193042 *)
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, 16}, {k, 1, n}]]  (* A194100 *)
q[n_] := Position[p, n]; Flatten[Table[q[n], {n, 1, 80}]]  (* A194101 *)

cp's OEIS Frontend

A194100 Natural interspersion of A194126; a rectangular array, by antidiagonals.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A194104 Natural interspersion of A194102; a rectangular array, by antidiagonals.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A193042 Natural fractal sequence of A194126.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica