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,5

Links

Table of n, a(n) for n=1..35.

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.

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

Crossrefs

Cf. A004001.

Sequence in context: A168282 A122762 A046605 * A346530 A163757 A109538

Adjacent sequences: A095896 A095897 A095898 * A095900 A095901 A095902

Keyword

nonn

Author

Robert G. Wilson v, Jun 11 2004

Status

approved