|
Search: id:A136681
|
|
| |
|
| 3, 4, 5, 6, 9, 10, 13, 16, 17, 18, 37, 43, 58, 121, 124, 126, 137, 203, 247, 283, 285, 286, 289, 317
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
A058313 = Numerator of Sum (-1)^(k+1)*1/k, k = 1..n.
|
|
LINKS
|
Eric Weisstein, The World of Mathematics: Harmonic Number
|
|
MATHEMATICA
|
Do[ f=Numerator[ Sum[ (-1)^(k+1)*1/k, {k, 1, n} ] ]; If[ PrimeQ[f], Print[ {n, f} ] ], {n, 1, 317} ]
|
|
CROSSREFS
|
Cf. A058313, A119682, A120296, A136675, A136676, A136677. Cf. A001008, A007406, A007408, A007410, A099828, A103345. Cf. A136682, A136683, A136684, A136685, A136686.
Adjacent sequences: A136678 A136679 A136680 this_sequence A136682 A136683 A136684
Sequence in context: A081944 A129948 A050414 this_sequence A104373 A047427 A088875
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
Alexander Adamchuk (alex(AT)kolmogorov.com), Jan 16 2008
|
|
|
Search completed in 0.002 seconds
|
