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

 

Logo


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

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

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.

License Agreements, Terms of Use, Privacy Policy. .

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