login
A104084
Smallest prime >= 7^n.
2
2, 7, 53, 347, 2411, 16811, 117659, 823547, 5764817, 40353611, 282475267, 1977326753, 13841287217, 96889010447, 678223072853, 4747561510009, 33232930569607, 232630513987231, 1628413597910497, 11398895185373167
OFFSET
0,1
MATHEMATICA
NextPrime[#]&/@(7^Range[0, 20]-1) (* Harvey P. Dale, Dec 20 2014 *)
PROG
(PARI) g(n, b) = for(x=0, n, print1(nextprime(b^x)", "))
CROSSREFS
Sequence in context: A106899 A259530 A119772 * A053465 A193191 A180720
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, Mar 03 2005
STATUS
approved