|
|
A063766
|
|
a(n) is the smallest prime >= 6^n.
|
|
2
|
|
|
2, 7, 37, 223, 1297, 7789, 46663, 279941, 1679627, 10077721, 60466181, 362797091, 2176782371, 13060694051, 78364164101, 470184984667, 2821109907503, 16926659444771, 101559956668421, 609359740010513, 3656158440062987, 21936950640377863, 131621703842267239
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
NextPrime[ n_Integer ] := (k = n + 1; While[ !PrimeQ[ k ], k++ ]; k); Table[ NextPrime[ 6^n ], {n, 0, 22} ]
|
|
PROG
|
(PARI) { for (n=0, 200, write("b063766.txt", n, " ", nextprime(6^n)); ) } \\ Harry J. Smith, Aug 30 2009
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|