Logo

Greetings from The On-Line Encyclopedia of Integer Sequences!

Hints

Search: id:A087842
Displaying 1-1 of 1 results found. page 1
     Format: long | short | internal | text      Sort: relevance | references | number      Highlight: on | off
A087842 a[n] =a[a[a[n - a[n-1]]]] + a[n - a[n-2]] +0
3
1, 1, 2, 3, 3, 3, 4, 4, 4, 4, 6, 5, 6, 6, 6, 6, 8, 7, 8, 8, 8, 8, 8, 8, 11, 9, 9, 11, 11, 11, 11, 11, 11, 11, 11, 14, 12, 11, 12, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 17, 15, 14, 14, 17, 17, 15, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 21, 18, 17, 17, 21, 20, 17, 21, 21, 21, 18, 21 (list; graph; listen)
OFFSET

1,3

COMMENT

A fourth-order recursive version of Hofstadter Q of the first term of A005185.

MATHEMATICA

digits=200 Hofstadter[n_Integer?Positive] := Hofstadter[n] = Hofstadter[Hofstadter[Hofstadter[n - Hofstadter[n-1]]]] + Hofstadter[n - Hofstadter[n-2]] Hofstadter[1] = Hofstadter[2] = 1 a1=Table[Hofstadter[n], {n, 1, digits}]

CROSSREFS

Cf. A005185.

Sequence in context: A057627 A013940 A029129 this_sequence A101776 A047745 A121536

Adjacent sequences: A087839 A087840 A087841 this_sequence A087843 A087844 A087845

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 December 19 12:50 EST 2009. Contains 171053 sequences.


AT&T Labs Research