A194107 - OEIS

A194107

Natural fractal sequence of A194106.

1, 2, 3, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 6, 1, 2, 3, 4, 5, 6, 7, 8, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

COMMENTS

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

LINKS

Table of n, a(n) for n=1..89.

MATHEMATICA

z = 40; g = Sqrt[3];

c[k_] := Sum[Floor[j*g], {j, 1, k}];

c = Table[c[k], {k, 1, z}] (* A194106 *)

f[n_] := If[MemberQ[c, n], 1, 1 + f[n - 1]]