

A174231


A chaotic designed sequence with modulo six depth if ladder.


0



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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



