%I #8 Sep 16 2015 13:41:08
%S 1,2,3,7,23,29,31,37,43,23,47,53,59,31,127,139,151,163,167,179,191,
%T 197,67,71,73,223,229,241,61,41,43,131,137,139,71,571,193,197,599,607,
%U 631,643,647,659,683,691,233,241,1213,1223,3709,3769,3889,3929,4049,4079
%N a(n) = the numerator of (Sum_{k=1..n} 1/A134411(k)).
%C With the exception of the initial 1, all terms of this sequence are primes.
%t a = {1}; s = 1; Do[i = 1; While[ ! PrimeQ[Numerator[s + 1/i]], i++ ]; s = s + 1/i; AppendTo[a, Numerator[s]], {80}]; a (* _Stefan Steinerberger_, Oct 27 2007 *)
%Y Cf. A134411, A134413.
%K frac,nonn
%O 1,2
%A _Leroy Quet_, Oct 24 2007
%E More terms from _Stefan Steinerberger_, Oct 27 2007
|