|
Search: id:A092325
|
|
|
| A092325 |
|
a(n) = min{ m : sum_{n <= i <= m} 1/p_i > 1}, where p_i is the i-th prime = A000040(i). |
|
+0
2
|
|
| 3, 10, 29, 69, 148, 258, 430, 658, 985, 1401, 1876, 2490, 3181, 3994, 4992, 6152, 7436, 8846, 10495, 12298, 14315, 16634, 19146, 21929, 24928, 28081, 31520, 35347, 39514, 44131, 49146, 54134, 59500, 65176, 71349, 77684, 84540, 91757, 99341, 107404
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
M. Domaratzki, K. Ellul, J. Shallit and M.-W. Wang, NON-UNIQUENESS AND RADIUS OF CYCLIC UNARY NFAs, International Journal of Foundations of Computer Science, Vol. 16, No. 5 (2005) 883-896
|
|
EXAMPLE
|
a(2) = 10 as 1/3+1/5+1/7+1/11+1/13+1/17+1/19+1/23+1/29 > 1
but 1/3 + 1/5 + 1/7 + 1/11 + 1/13 + 1/17 + 1/19 + 1/23 < 1 (29 is the 10-th prime).
|
|
MATHEMATICA
|
NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; f[n_] := Block[{k = n, p = Prime[n], s = 1/Prime[n]}, While[s < 1, p = NextPrim[p]; s = N[s + 1/p, 64]; k++ ]; k]; Table[ f[n], {n, 41}] (from Robert G. Wilson v Apr 07 2004)
|
|
CROSSREFS
|
Sequence in context: A108912 A055336 A084380 this_sequence A130218 A114958 A048493
Adjacent sequences: A092322 A092323 A092324 this_sequence A092326 A092327 A092328
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Michael Domaratzki (mdomaratzki(AT)alumni.uwaterloo.ca), Apr 02 2004
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 07 2004
|
|
|
Search completed in 0.002 seconds
|
