login
A125965
Numbers k for which k^8+k^7-1 is prime.
11
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
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
KEYWORD
nonn
AUTHOR
Artur Jasinski, Dec 14 2006
STATUS
approved