[go: up one dir, main page]

login
Revision History for A103597 (Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing entries 1-10 | older changes
Smallest number m such that Sum_{k=1..m} 1/prime(k) >= n/5.
(history; published version)
#12 by Alois P. Heinz at Wed Mar 27 19:12:49 EDT 2019
STATUS

proposed

approved

#11 by Robert Price at Wed Mar 27 19:09:57 EDT 2019
STATUS

editing

proposed

#10 by Robert Price at Wed Mar 27 19:09:39 EDT 2019
MATHEMATICA

Table[m = 1; s = 0; While[(s = s + 1/Prime[m]) < n/5, m++];

m, {n, 1, 17}] (* Robert Price, Mar 27 2019 *)

STATUS

approved

editing

#9 by Alois P. Heinz at Wed Mar 27 19:09:08 EDT 2019
STATUS

editing

approved

#8 by Alois P. Heinz at Wed Mar 27 19:09:05 EDT 2019
NAME

Smallest number m such that sum_Sum_{k=1..m} 1/prime(k) >= n/5.

STATUS

approved

editing

#7 by T. D. Noe at Tue Dec 10 15:50:07 EST 2013
STATUS

editing

approved

#6 by T. D. Noe at Tue Dec 10 15:50:04 EST 2013
EXTENSIONS

a(12)-a(3) and a(16)-a(1517) corrected by _from _Robert Price_, Dec 10 2013

a(16)-a(17) from Robert Price, Dec 10 2013

STATUS

proposed

editing

#5 by Robert Price at Tue Dec 10 14:30:08 EST 2013
STATUS

editing

proposed

#4 by Robert Price at Tue Dec 10 14:29:50 EST 2013
DATA

1, 1, 2, 2, 3, 5, 7, 13, 25, 59, 170, 644, 3402, 27178, 361139, 8947437, 474314304

OFFSET

1,23

COMMENTS

a(18) > 5*10^10. - Robert Price, Dec 10 2013

EXTENSIONS

a(1)-a(15) corrected by Robert Price, Dec 10 2013

a(16)-a(17) from Robert Price, Dec 10 2013

STATUS

approved

editing

#3 by Russ Cox at Sat Mar 31 14:40:24 EDT 2012
AUTHOR

_James R. Buddenhagen (jbuddenh(AT)gmail.com), _, Mar 28 2005

Discussion
Sat Mar 31
14:40
OEIS Server: https://oeis.org/edit/global/946