Logo

Greetings from The On-Line Encyclopedia of Integer Sequences!

Hints

Search: id:A087846
Displaying 1-1 of 1 results found. page 1
     Format: long | short | internal | text      Sort: relevance | references | number      Highlight: on | off
A087846 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

Lookup | Welcome | Find friends | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
More pages | Superseeker | Maintained by N. J. A. Sloane (njas@research.att.com)

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


AT&T Labs Research