login
Numbers n for which n^6+n^5-1 is prime.
5

%I #7 Jan 08 2017 15:57:56

%S 3,4,5,8,9,16,18,30,34,36,41,48,49,51,54,61,65,69,76,81,86,89,90,95,

%T 101,109,120,141,170,171,178,196,221,235,238,244,260,263,273,280,291,

%U 301,303,310,311,326,350,361,375,391,398,404,405,406,423,429,431,454,456,464,479,484,485,486,489,499

%N Numbers n for which n^6+n^5-1 is prime.

%H Robert Israel, <a href="/A125884/b125884.txt">Table of n, a(n) for n = 1..10000</a>

%p select(t -> isprime(t^6+t^5-1), [$1..1000]); # _Robert Israel_, Jan 08 2017

%t Do[If[PrimeQ[x^6 + x^5 - 1], Print[x]], {x, 1, 200}]

%o (PARI) is(n)=isprime(n^6+n^5-1) \\ _Charles R Greathouse IV_, May 15 2013

%Y Cf. A000040, A045546, A125881-A125885.

%K nonn

%O 1,1

%A _Artur Jasinski_, Dec 14 2006

%E More terms from _Robert Israel_, Jan 08 2017