A125262 - OEIS

A125262

Numbers n such that n^7 + 6 is prime.

1, 13, 17, 23, 61, 73, 77, 101, 137, 215, 221, 283, 307, 317, 361, 431, 457, 473, 481, 641, 731, 767, 817, 881, 985, 1015, 1061, 1145, 1235, 1283, 1333, 1337, 1343, 1531, 1693, 1711, 1817, 1847, 1853, 1867, 1903, 1963, 2057, 2093, 2113, 2161, 2201, 2363

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

LINKS

Carmine Suriano, Table of n, a(n) for n = 1..2374

MATHEMATICA

lst={}; k=7; Do[If[PrimeQ[n^k+k-1], AppendTo[lst, n]], {n, 0, 10^4}]; lst (* Vladimir Joseph Stephan Orlovsky, Sep 10 2008 *)

Select[Range[2500], PrimeQ[#^7+6]&] (* Harvey P. Dale, May 05 2016 *)

PROG

(PARI) is(n)=isprime(n^7+6) \\ Charles R Greathouse IV, Feb 17 2017

CROSSREFS

Other sequences of the type "Numbers n such that n^k + k - 1 is prime": A000040 (k=1), A005574 (k=2), A067200 (k=3), A125259-A125265 (k=4..11).