id:A087829 - OEIS Search Results

Search: id:A087829

Displaying 1-1 of 1 results found.

page 1

a[n] =a[a[Abs[n - a[n-1]]]] + a[Abs[n - a[n-4]]]

+0
1

1, 1, 1, 1, 2, 3, 4, 5, 5, 5, 5, 5, 7, 6, 7, 7, 7, 7, 7, 11, 8, 10, 11, 11, 10, 11, 11, 11, 11, 11, 16, 12, 15, 15, 12, 16, 15, 16, 16, 16, 16, 16, 16, 16, 16, 16, 23, 17, 20, 20, 18, 19, 22, 20, 20, 22, 17, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 34, 24, 27, 27, 27, 25, 27 (list; graph; listen)

	OFFSET	`0,5`
	COMMENT	`A triple recursion of the skip two Hofstadter Q sequence.`
	MATHEMATICA	`Hofstadter14[n_Integer?Positive] := Hofstadter14[n] = Hofstadter14[Hofstadter14[Abs[n - Hofstadter14[n-1]]]] + Hofstadter14[Abs[n - Hofstadter14[n-4]]] Hofstadter14[0] = Hofstadter14[1] = Hofstadter14[2]= Hofstadter14[3]= Hofstadter14[4]= 1 digits=200 ta=Table[Hofstadter14[n], {n, 1, digits}]`
	CROSSREFS	`Cf. A005185.` `Adjacent sequences: A087826 A087827 A087828 this_sequence A087830 A087831 A087832` `Sequence in context: A102676 A087846 A067854 this_sequence A078474 A087177 A006159`
	KEYWORD	`nonn`
	AUTHOR	`Roger L Bagula (rlbagulatftn(AT)yahoo.com), Oct 06 2003`

page 1

Search completed in 0.002 seconds

Last modified October 10 20:39 EDT 2008. Contains 144831 sequences.

AT&T Labs Research