A163319 Primes of the form 3^n-n^3.

2, 17, 58049, 6461081889226673298791633, 273892744995340833777347939263771534786080723598328513, 141158163862183763292171284564016760661754655311572624335224092241585052457078933432718798844633407313

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Jul 24 2009

Keywords

• nonn

Comments

Generated by the n of A109387. The number of decimal digits in this sequence grows as 1, 2, 5, 25, 54, 102, 166, 194,...

The large terms beyond a(6) are not shown.

Programs

Mathematica

f[n_]:=3^n-n^3; lst={};Do[If[PrimeQ[f[n]],AppendTo[lst,f[n]]],{n,4*5!}]; lst

Extensions

Edited by R. J. Mathar, Jul 26 2009