OFFSET
0,1
LINKS
Jinyuan Wang, Table of n, a(n) for n = 0..1000
FORMULA
a(n) = A014210(n), n <> 1. - R. J. Mathar, Oct 14 2008
Sum_{n >= 0} 1/a(n) = A338475 + 1/6 = 1.4070738... (because 1/6 = 1/2 - 1/3). - Bernard Schott, Nov 01 2020
From Gus Wiseman, Jun 03 2024: (Start)
a(n) = A007918(2^n).
a(n) = 2^n + A092131(n).
a(n) = prime(A372684(n)).
(End)
MATHEMATICA
Join[{2, 2}, NextPrime[#]&/@(2^Range[2, 40])] (* Harvey P. Dale, Jan 26 2011 *)
NextPrime[2^Range[0, 50]-1] (* Vladimir Joseph Stephan Orlovsky, Apr 11 2011 *)
PROG
(PARI) g(n, b=2) = for(x=0, n, print1(nextprime(b^x)", "))
(PARI) a(n) = nextprime(2^n); \\ Michel Marcus, Nov 01 2020
CROSSREFS
The indices of these prime are given by A372684.
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, Mar 03 2005
STATUS
approved