A193042 - OEIS

A193042

Natural fractal sequence of A194126.

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

(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..85.

MATHEMATICA

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]]