A265418 - OEIS

%I #11 Jan 12 2016 00:49:56

%S 2,3,5,11,29,79,223,631,1787,5077,14431,41023,116639,331651,943031,

%T 2681467,7624649,21680413,61647497,175292519,498438203,1417291781,

%U 4030020143,11459222851,32583903763,92651203181,263450491193,749112358279,2130075077051,6056794796849,17222286484817

%N a(1)=2; for n>1, a(n) is the least prime q greater than p = a(n-1) such that p/q reaches a new minimum.

%C Inspired by the fact that 294911/235927 = 1.2500095368..., two primes together with 2^16 form a primitive weird number (A002975(9729)).

%C p/q ->

%C 0.3516835469078526298668938767771073728

%C ...

%C Each pair of initial primes, p & q, will yield a different ratio.

%H Robert G. Wilson v, <a href="/A265418/b265418.txt">Table of n, a(n) for n = 1..1620</a>

%e 2/3 is 0.666... is a new low or minimum;

%e 3/5 is 0.600... is a new minimum;

%e 5/11 is 0.454... is a new minimum;

%e 11/29 is 0.379... is a new minimum;

%e 29/79 is 0.367... is a new minimum;

%e ... 6056794796849/17222286484817 is 0.351... is a new minimum; etc.

%t f[lst_List] := Block[{p = lst[[-2]], q = lst[[-1]]}, Append[lst, NextPrime[q^2/p]]]; Nest[f, {2, 3}, 29]

%K nonn

%O 1,1

%A _Robert G. Wilson v_, Dec 08 2015