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

1, 1, 1, 1, 6, 6, 11, 13, 25, 44, 46, 52, 98, 180, 186, 372, 396, 747, 1489, 1563, 3003, 6059, 11787, 22251, 47152, 89524, 188871, 361441, 758765, 207115, 411023, 826893, 1642957, 3308167, 6574193

Offset: 1

Author

Robert G. Wilson v, Jun 11 2004

Keywords

• nonn

Links

• Mathenomicon, Hofstadter-Conway Sequence.
• N. J. A. Sloane, My favorite integer sequences, in Sequences and their Applications (Proceedings of SETA '98).
• Eric Weisstein's World of Mathematics, Hofstadter-Conway 10000-Dollar Sequence.

Crossrefs

Cf. A004001.

Programs

Mathematica

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 *)