A125965 Numbers k for which k^8+k^7-1 is prime.

2, 3, 4, 7, 8, 9, 18, 23, 32, 36, 41, 52, 54, 55, 56, 60, 68, 74, 80, 82, 87, 93, 107, 115, 140, 142, 146, 154, 162, 165, 170, 189, 227, 238, 253, 262, 263, 269, 276, 285, 300, 304, 305, 306, 308, 310, 315, 317, 332, 339, 350, 361, 363, 367, 371, 384, 386, 390

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Mathematica

Select[Range[500], PrimeQ[#^8+#^7-1]&]  (* Harvey P. Dale, Feb 23 2011 *)

Prog

(PARI) select(ispseudoprime, vector(500, n, n^8+n^7-1)) \\ Charles R Greathouse IV, Feb 23 2011

Crossrefs

Cf. A000040, A045546, A125881-A125885, A125966-A125973.

Sequence in context: A029783 A112736 A059930 * A111116 A113318 A056033

Adjacent sequences: A125962 A125963 A125964 * A125966 A125967 A125968

Keyword

nonn

Author

Artur Jasinski, Dec 14 2006

Status

approved