id:A087847 - OEIS Search Results

Search: id:A087847

Displaying 1-1 of 1 results found.

page 1

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

+0
2

1, 1, 1, 1, 2, 2, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 9, 9, 9, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 13, 13, 13, 13, 13 (list; graph; listen)

	OFFSET	`1,5`
	COMMENT	`The skip two term two fourth recusion of the Hofstadter Q.` `The conjecture is that even higher order recursions of the term one and term two type for the original and skip term versions of A005185 Hofstadter Q will exist as well. I have invented this way of naming the larger generalization of Hofstadter Q type sequences as being descriptive of their formation.`
	MATHEMATICA	`Hofstadter14[n_Integer?Positive] := Hofstadter14[n] = Hofstadter14[Abs[n - Hofstadter14[n-1]]] + Hofstadter14[Hofstadter14[ 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, A081831.` `Sequence in context: A124755 A033810 A023965 this_sequence A107436 A002024 A123578` `Adjacent sequences: A087844 A087845 A087846 this_sequence A087848 A087849 A087850`
	KEYWORD	`nonn`
	AUTHOR	`Roger L Bagula (rlbagulatftn(AT)yahoo.com), Oct 07 2003`

page 1

Search completed in 0.002 seconds

Last modified December 8 08:31 EST 2009. Contains 170430 sequences.

AT&T Labs Research