login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Smallest prime > (3/2)^n.
3

%I #47 Jun 24 2014 02:44:27

%S 2,3,5,7,11,13,19,29,41,59,89,131,197,293,439,659,991,1481,2221,3329,

%T 4993,7487,11239,16843,25253,37879,56821,85223,127837,191773,287629,

%U 431441,647161,970747,1456121,2184179,3276253,4914373,7371571,11057357,16586039,24879017,37318507,55977767

%N Smallest prime > (3/2)^n.

%H Robert G. Wilson v, <a href="/A242738/b242738.txt">Table of n, a(n) for n = 1..1000</a>

%F a(n) = A242734(n) + floor((3/2)^n).

%F a(n) = A151800(A002379(n)). - _Michel Marcus_, Jun 20 2014

%t f[n_] := NextPrime[(3/2)^n]; Array[f, 40] (* _Robert G. Wilson v_, Jun 20 2014 *)

%o (PARI) a(n) = nextprime(3^n/2^n); \\ _Michel Marcus_, Jun 21 2014

%Y Cf. A242734.

%K nonn

%O 1,1

%A _Pierre CAMI_, May 21 2014