A013598 a(n) = nextprime(3^n)-3^n.

1, 2, 2, 2, 2, 8, 4, 16, 2, 4, 2, 20, 16, 8, 2, 2, 26, 34, 10, 56, 8, 56, 4, 32, 2, 14, 2, 16, 26, 130, 4, 16, 70, 70, 34, 22, 2, 50, 8, 82, 118, 70, 4, 52, 8, 46, 68, 52, 56, 16, 28, 34, 50, 26, 28, 20, 62, 4, 158, 64, 16, 34, 122, 2, 92, 64, 28, 230, 20

Offset

0,2

Links

Zak Seidov, Table of n, a(n) for n = 0..1000

Formula

a(n) = A151800(3^n)-3^n = A013632(3^n). - R. J. Mathar, Nov 28 2016

Maple

seq(nextprime(3^i)-3^i, i=0..100);

Mathematica

np[n_]:=Module[{c=3^n}, NextPrime[c]-c]; Array[np, 80, 0] (* Harvey P. Dale, Jul 14 2014 *)

Crossrefs

Cf. A013604.

Sequence in context: A203610 A294873 A058788 * A100943 A152660 A339163

Adjacent sequences: A013595 A013596 A013597 * A013599 A013600 A013601

Keyword

nonn

Author

James Kilfiger (mapdn(AT)csv.warwick.ac.uk)

Extensions

Corrected by Harvey P. Dale, Jul 14 2014

Status

approved