The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 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 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified April 13 22:14 EDT 2021. Contains 342941 sequences. (Running on oeis4.)