id:A087846 - OEIS Search Results

Search: id:A087846

Displaying 1-1 of 1 results found.

page 1

a[n] =a[a[aa[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, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 10, 9, 10, 10, 10, 10, 10, 10, 10, 10, 12, 11, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 14, 13, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 17, 15, 17, 17, 16, 17, 17, 17, 17, 17, 17, 17 (list; graph; listen)

	OFFSET	`1,5`
	COMMENT	`The skip one term one fourth recursion of the Hofstadter Q.`
	MATHEMATICA	`Hofstadter14[n_Integer?Positive] := Hofstadter14[n] = Hofstadter14[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, A081831.` `Sequence in context: A079947 A094699 A102676 this_sequence A067854 A087829 A078474` `Adjacent sequences: A087843 A087844 A087845 this_sequence A087847 A087848 A087849`
	KEYWORD	`nonn`
	AUTHOR	`Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Oct 07 2003`

page 1

Search completed in 0.002 seconds

Last modified November 29 12:46 EST 2009. Contains 167659 sequences.

AT&T Labs Research