A037129 (nextprime(3^n)-nextprime(2^n))/2.
0, 1, 3, 9, 33, 107, 333, 1036, 3153, 9583, 29010, 87557, 263679, 793061, 2383280, 7158069, 21490605, 64504548, 193579176, 580868607, 1742867913, 5229128045, 15688432647, 47067395121, 141206379612, 423627527495, 1270899359726, 3812731633623, 11438262009764
Offset: 0
Keywords
Programs
-
Mathematica
Table[(NextPrime[3^n]-NextPrime[2^n])/2,{n,0,30}] (* Harvey P. Dale, Jun 08 2014 *)
Formula
a(n) = A037128(n) / 2. - Sean A. Irvine, Dec 09 2020
Extensions
More terms from Sean A. Irvine, Dec 09 2020