login
a(n) is the smallest prime >= 6^n.
2

%I #14 Sep 08 2022 08:45:04

%S 2,7,37,223,1297,7789,46663,279941,1679627,10077721,60466181,

%T 362797091,2176782371,13060694051,78364164101,470184984667,

%U 2821109907503,16926659444771,101559956668421,609359740010513,3656158440062987,21936950640377863,131621703842267239

%N a(n) is the smallest prime >= 6^n.

%H Harry J. Smith, <a href="/A063766/b063766.txt">Table of n, a(n) for n = 0..200</a>

%F a(n) = A007918(A000400(n)). - _Michel Marcus_, Jun 25 2018

%t NextPrime[ n_Integer ] := (k = n + 1; While[ !PrimeQ[ k ], k++ ]; k); Table[ NextPrime[ 6^n ], {n, 0, 22} ]

%t NextPrime[6^Range[0, 25]] (* _Vincenzo Librandi_, Jun 25 2018 *)

%o (PARI) { for (n=0, 200, write("b063766.txt", n, " ", nextprime(6^n)); ) } \\ _Harry J. Smith_, Aug 30 2009

%o (Magma) [NextPrime(6^n): n in [0..25]];// _Vincenzo Librandi_, Jun 25 2018

%Y Cf. A000400, A007918.

%K nonn

%O 0,1

%A _Robert G. Wilson v_, Aug 14 2001