id:A087655 - OEIS Search Results

Search: id:A087655

Displaying 1-1 of 1 results found.

page 1

a[n] = a[abs[n - a[n-1]]] + a[abs[n - a[n-2]]]+ a[abs[n - a[n-3]]]

+0
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; listen)

	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 this_sequence A016621 A011271 A005534` `Adjacent sequences: A087652 A087653 A087654 this_sequence A087656 A087657 A087658`
	KEYWORD	`nonn`
	AUTHOR	`Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Sep 26 2003`

page 1

Search completed in 0.002 seconds

Last modified July 23 17:35 EDT 2008. Contains 142285 sequences.

AT&T Labs Research