login
This site is supported by donations to The OEIS Foundation.
Logo

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A087655 a[n] = a[abs[n - a[n-1]]] + a[abs[n - a[n-2]]]+ a[abs[n - a[n-3]]] 2
1, 1, 1, 3, 7, 9, 5, 3, 13, 13, 5, 7, 13, 19, 7, 15, 15, 7, 13, 25, 25, 15, 5, 27, 39, 39, 15, 23, 41, 17, 35, 21, 23, 19, 41, 35, 11, 17, 41, 47, 37, 15, 35, 59, 49, 19, 31, 57, 27, 23, 59, 85, 47, 47, 23, 49, 35, 59, 41, 53, 29, 61, 33, 77, 31, 69, 49, 25, 85, 81, 51, 51, 33, 47 (list; graph; refs; listen; history; internal format)
OFFSET

1,4

MATHEMATICA

Rauzy[n_Integer?Positive] := Rauzy[n] =Rauzy[Abs[n - Rauzy[n-1]]] + Rauzy[Abs[n - Rauzy[n-2]]]+ Rauzy[Abs[n - Rauzy[n-3]]] Rauzy[0]=Rauzy[1] = Rauzy[2]= Rauzy[3]= 1 digits=200 ta=Table[Rauzy[n], {n, 1, digits}]

CROSSREFS

Cf. A005185.

Sequence in context: A071641 A093336 A038135 * A016621 A011271 A005534

Adjacent sequences:  A087652 A087653 A087654 * A087656 A087657 A087658

KEYWORD

nonn

AUTHOR

Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Sep 26 2003

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
Recent Additions | More pages | Superseeker | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .

Last modified February 16 06:46 EST 2012. Contains 205867 sequences.