|
|
A095899
|
|
Numbers n such that b(n)/n - 1/2 < 1/k for all k > n, where b(n) is A004001.
|
|
0
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,5
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|