|
|
A163319
|
|
Primes of the form 3^n-n^3.
|
|
3
|
|
|
2, 17, 58049, 6461081889226673298791633, 273892744995340833777347939263771534786080723598328513, 141158163862183763292171284564016760661754655311572624335224092241585052457078933432718798844633407313
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
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.
|
|
LINKS
|
|
|
MATHEMATICA
|
f[n_]:=3^n-n^3; lst={}; Do[If[PrimeQ[f[n]], AppendTo[lst, f[n]]], {n, 4*5!}]; lst
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|