OFFSET
0,1
LINKS
Harry J. Smith, Table of n, a(n) for n = 0..200
FORMULA
MATHEMATICA
NextPrime[ n_Integer ] := (k = n + 1; While[ !PrimeQ[ k ], k++ ]; k); Table[ NextPrime[ 6^n ], {n, 0, 22} ]
NextPrime[6^Range[0, 25]] (* Vincenzo Librandi, Jun 25 2018 *)
PROG
(PARI) { for (n=0, 200, write("b063766.txt", n, " ", nextprime(6^n)); ) } \\ Harry J. Smith, Aug 30 2009
(Magma) [NextPrime(6^n): n in [0..25]]; // Vincenzo Librandi, Jun 25 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Aug 14 2001
STATUS
approved