A104081 Smallest prime >= 3^n.
2, 3, 11, 29, 83, 251, 733, 2203, 6563, 19687, 59051, 177167, 531457, 1594331, 4782971, 14348909, 43046747, 129140197, 387420499, 1162261523, 3486784409, 10460353259, 31381059613, 94143178859, 282429536483, 847288609457
Offset: 0
Links
- Jinyuan Wang, Table of n, a(n) for n = 0..1000
Programs
-
Magma
[NextPrime(3^n-1): n in [0..50]]; // G. C. Greubel, Nov 08 2018
-
Mathematica
NextPrime[3^Range[0,50]-1] (* Vladimir Joseph Stephan Orlovsky, Apr 11 2011 *)
-
PARI
g(n,b=3) = for(x=0,n,print1(nextprime(b^x)","))
Formula
a(n) = A014211(n), n > 1. - R. J. Mathar, Dec 13 2008