OFFSET
1,1
COMMENTS
a(n) is the smallest prime such that a(n) > a(n-1)^(3/2); a(1) = 2.
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 1..20
EXAMPLE
a(2) = 3 because 3^2 = 9 > a(1)^3 = 8 and 3 is the smallest such prime.
a(3) = 7 because 7^2 = 49 > a(2)^3 = 27 and 7 is the smallest such prime.
MATHEMATICA
f[s_List] := Append[s, NextPrime[ Sqrt[s[[-1]]^3]]]; s = {2}; Nest[f, s, 13] (* Robert G. Wilson v, Nov 18 2017 *)
PROG
(PARI) {
p=2; print1(p", ");
for(n=1, 10,
p1=nextprime(p+1);
while(p^3>p1^2, p1=nextprime(p1+1));
p=p1; print1(p1", ")
)
}
(PARI) lista(nn) = {a=2; print1(a, ", "); for (n=1, nn, a=nextprime(sqrtint(a^3)+1); print1(a, ", ")); } \\ Michel Marcus, Oct 29 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Dimitris Valianatos, Oct 23 2017
EXTENSIONS
a(10)-a(14) from Michel Marcus, Oct 29 2017
STATUS
approved