%I #12 Jul 13 2013 12:02:58
%S 2,3,5,6,8,11,14,16,17,19,23,26,30,33,34,36,37,39,40,42,47,49,50,53,
%T 56,58,62,65,68,69,71,72,74,76,78,79,80,83,85,86,89,95,97,98,99,101,
%U 104,106,107,108,110,113,114,116,117,120,122,123,125,129,131,132,134,136
%N Numbers n such that the n-th term of Hofstadter Q-sequence is < (n+1)-th term.
%C A005185(a(n)+1) > A005185(a(n)); A081827(a(n)) > 0.
%H Reinhard Zumkeller, <a href="/A081830/b081830.txt">Table of n, a(n) for n = 1..10000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/HofstadtersQ-Sequence.html">Hofstadter's Q-Sequence</a>
%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Hofstadter_sequence">Hofstadter sequence</a>
%H <a href="/index/Ho#Hofstadter">Index entries for Hofstadter-type sequences</a>
%F Conjecture : a(n)/n -> 2. a(n)=2n for n=2, 14, 16, 802, 804, 806, 810, 814, 824, 826, 832, 1116, 1120, 1124, 1126, 1130, 1172, 1178, 1228, 1230, 1254, 1258, 1298...
%o (Haskell)
%o import Data.List (findIndices)
%o a081830 n = a081830_list !! (n-1)
%o a081830_list = map (+ 1) $ findIndices (> 0) a081827_list
%o -- _Reinhard Zumkeller_, Sep 15 2011
%Y Cf. A081828, A081829, A194626.
%K nonn
%O 1,1
%A _Benoit Cloitre_, Apr 10 2003
|