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

Author

Jeffrey Shallit, Jun 01 2013

Keywords

• nonn

Comments

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

Examples

			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.
		

Links

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

Crossrefs

Cf. A005185

Programs

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