A095899 - OEIS

%I #8 Mar 28 2015 22:13:49

%S 1,1,1,1,6,6,11,13,25,44,46,52,98,180,186,372,396,747,1489,1563,3003,

%T 6059,11787,22251,47152,89524,188871,361441,758765,207115,411023,

%U 826893,1642957,3308167,6574193

%N Numbers n such that b(n)/n - 1/2 < 1/k for all k > n, where b(n) is A004001.

%H Mathenomicon, <a href="http://www.cenius.net/refer/display.php?ArticleID=hofstadterconwaysequence">Hofstadter-Conway Sequence.</a>

%H N. J. A. Sloane, <a href="http://neilsloane.com/doc/sg.txt">My favorite integer sequences</a>, in Sequences and their Applications (Proceedings of SETA '98).

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Hofstadter-Conway10000-DollarSequence.html">Hofstadter-Conway 10000-Dollar Sequence.</a>

%t a[1] = a[2] = 1; a[n_] := a[n] = a[a[n - 1]] + a[n - a[n - 1]]; Do[ a[n], {n, 10000000}]; f[n_] := Block[{k = C}, While[ a[k]/k - 1/2 < 1/n, k-- ]; k] (C is a number generally twice as large as the previous answer) (* _Robert G. Wilson v_, Jun 11 2004 *)

%Y Cf. A004001.

%K nonn

%O 1,5

%A _Robert G. Wilson v_, Jun 11 2004