A226244 Successive record-setters (maxima) in Hofstadter's Q-sequence (A005185).

1, 2, 3, 4, 5, 6, 8, 10, 11, 12, 16, 20, 21, 22, 23, 24, 32, 40, 42, 43, 44, 46, 47, 48, 64, 66, 68, 72, 78, 80, 82, 83, 85, 88, 90, 92, 94, 96, 128, 130, 138, 149, 151, 152, 159, 162, 165, 168, 169, 170

Offset

1,2

Comments

a(n) = A005185(A226245(n)).

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..1000

Example

a(8) = 10 because the first few terms of Hofstadter's Q-sequence are 1,1,2,3,3,4,5,5,6,6,6,8,8,8,10,9 and 10 is the 8th record value.

Prog

(Haskell)
a226244 n = a226244_list !! (n-1)
(a226244_list, a226245_list) = unzip $ (1, 1) : f 1 1 a005185_list where
   f i v (q:qs) | q > v = (q, i) : f (i + 1) q qs
                | otherwise = f (i + 1) v qs
-- Reinhard Zumkeller, Jun 02 2013

Crossrefs

Cf. A005185

Sequence in context: A057197 A067936 A087721 * A140642 A188936 A260317

Adjacent sequences: A226241 A226242 A226243 * A226245 A226246 A226247

Keyword

nonn

Author

Jeffrey Shallit, Jun 01 2013

Status

approved