A174231 A chaotic designed sequence with modulo six depth if ladder.

0, 1, 1, 2, 2, 3, 3, 4, 5, 6, 6, 6, 4, 6, 9, 12, 8, 8, 6, 9, 15, 16, 12, 8, 6, 11, 21, 24, 10, 9, 8, 17, 14, 17, 23, 14, 11, 14, 33, 28, 14, 15, 14, 19, 17, 29, 18, 12, 7, 18, 25, 28, 34, 34, 26, 37, 22, 27, 35, 28, 13, 23, 26, 35, 47, 20, 18, 18, 31, 45, 57, 48, 9, 17, 28, 45, 36, 25, 14

Offset

0,4

Comments

Programmed during one of my OEIS banned period and never entered.

Links

Table of n, a(n) for n=0..78.

Mathematica

f[0] = 0; f[1] = 1; f[2] = 1;
f[n_] := f[n] = f[f[n - 1]] +
If[n < 6, f[n - f[(n - 1)]], If[ Mod[n, 6] == 0, f[f[n/6]],
If[Mod[1 + n, 6] == 1, f[f[(n - 1)/6]], If[Mod[2 + n, 6] == 2,
f[f[(n - 2)/6]], If[Mod[3 + n, 6] == 3, f[f[(n - 3)/6]],
If[Mod[4 + n, 6] == 4, f[f[(n - 4)/6]],
If[ Mod[5 + n, 6] == 5, f[f[(n - 5)/6]], f[n - f[(n - 2)]]]]]]]]];
Table[f[n], {n, 0, 100}]

Crossrefs

Cf. A147665

Sequence in context: A031234 A030585 A030565 * A072509 A269362 A321695

Adjacent sequences: A174228 A174229 A174230 * A174232 A174233 A174234

Keyword

nonn,uned

Author

Roger L. Bagula, Mar 13 2010

Status

approved