A194961 Fractalization of A194960.

1, 1, 2, 1, 2, 3, 1, 4, 2, 3, 1, 4, 5, 2, 3, 1, 4, 5, 6, 2, 3, 1, 4, 7, 5, 6, 2, 3, 1, 4, 7, 8, 5, 6, 2, 3, 1, 4, 7, 8, 9, 5, 6, 2, 3, 1, 4, 7, 10, 8, 9, 5, 6, 2, 3, 1, 4, 7, 10, 11, 8, 9, 5, 6, 2, 3, 1, 4, 7, 10, 11, 12, 8, 9, 5, 6, 2, 3, 1, 4, 7, 10, 13, 11, 12, 8, 9, 5, 6, 2, 3, 1, 4, 7

Offset

1,3

Comments

See A194959 for a discussion of fractalization.

Links

G. C. Greubel, Table of n, a(n) for n = 1..5000

Mathematica

p[n_] := Floor[(n + 2)/3] + Mod[n - 1, 3]
Table[p[n], {n, 1, 90}]  (* A194960 *)
g[1] = {1}; g[n_] := Insert[g[n - 1], n, p[n]]
f[1] = g[1]; f[n_] := Join[f[n - 1], g[n]]
f[20]  (* A194961 *)
row[n_] := Position[f[30], n];
u = TableForm[Table[row[n], {n, 1, 5}]]
v[n_, k_] := Part[row[n], k];
w = Flatten[Table[v[k, n - k + 1], {n, 1, 13}, {k, 1, n}]]  (* A194962 *)
q[n_] := Position[w, n]; Flatten[
Table[q[n], {n, 1, 80}]]  (* A194963 *)

Crossrefs

Cf. A194959, A194960, A194962, A194963.

Sequence in context: A143604 A021475 A132224 * A195110 A167198 A295540

Adjacent sequences: A194958 A194959 A194960 * A194962 A194963 A194964

Keyword

nonn

Author

Clark Kimberling, Sep 06 2011

Status

approved