A091852 Numerator of Sum_{i=1..n} prime(i)/prime(i+1).

2, 19, 208, 3023, 52004, 1079263, 24845332, 663589691, 21809669044, 769910292199, 31595368408378, 1432693760237483, 67842962092519574, 3469898586979325623, 198354535000733806154, 12566530264688830748431

Offset: 1

Author

N. J. A. Sloane, Mar 13 2004

Keywords

• nonn
• frac

Comments

Proposed by Mohammed BOUAYOUN, Feb 16 2004; computed by R. K. Guy, Feb 17 2004

Examples

			The sums are f(1)=2/3, f(2)=2/3 + 3/5, f(3)=2/3+3/5+5/7, f(4)=2/3+3/5+5/7+7/11, ...
		

Crossrefs

Denominators are in A070826.

Programs

Mathematica

A091852[n_] := Numerator[ Sum[ Prime[i] / Prime[i + 1], {i, n}]]; Table[ A091852[n], {n, 16}] (* Robert G. Wilson v, Mar 16 2004 *)

Extensions

More terms from Robert G. Wilson v, Mar 16 2004