%I #3 Mar 30 2012 17:22:26
%S 3,11,61,11,23,263,3529,75539,1767427,2394941,70374209,638709217,
%T 1287433439,6485239219,111050267123,5926525377919,17899889727157,
%U 342263549497183,344391855476983,346449217924123,348264537730423
%N Primes in the numerator of the slowest decreasing sequence of unit fractions whose partial sums have a prime numerator.
%C Note that the primes are not necessarily increasing.
%t nMax = 100; lst = {1}; numer = {1}; s = 1; i = 2; Do[While[ ! PrimeQ[Numerator[s + 1/i]], i++ ]; s = s + 1/i; AppendTo[lst, i]; AppendTo[numer, Numerator[s]]; i++, {n, 2, nMax}]; numer
%Y Cf. A076474.
%K nonn
%O 2,1
%A _T. D. Noe_, Oct 14 2002
|