|
%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
|
