|
|
A046024
|
|
a(n) = smallest k such that Sum_{ i = 1..k } 1/prime(i) exceeds n.
|
|
22
|
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
The corresponding primes prime(a(n)) are in A016088.
Index m for which the prime harmonic number p[ m ] := Sum[ 1/Prime[ k ],{k,1,m} ] >= n.
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Table[m = 1; s = 0; While[(s = s + 1/Prime[m]) <= n, m++];
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more,nice
|
|
AUTHOR
|
|
|
EXTENSIONS
|
a(4) found by Tomás Oliveira e Silva (tos(AT)det.ua.pt), using the fourth term of A016088. - Dec 14 2005
|
|
STATUS
|
approved
|
|
|
|