|
%I #13 Sep 08 2022 08:45:40
%S 7,15,25,87,91,99,199,211,265,337,357,361,367,405,501,511,537,595,627,
%T 685,697,771,805,841,847,861,889,931,939,979,1035,1047,1081,1125,1135,
%U 1177,1225,1231,1287,1315,1321,1387,1425,1497,1501,1627,1741,1795,1807
%N Numbers n such that n^7-2 is prime.
%H Vincenzo Librandi, <a href="/A154935/b154935.txt">Table of n, a(n) for n = 1..1000</a>
%t lst={};Do[p=n^7-2;If[PrimeQ[p],AppendTo[lst,n]],{n,0,7!}];lst
%t Select[Range[2*10^3], PrimeQ[#^7 - 2] &] (* _Vincenzo Librandi_, Mar 20 2014 *)
%o (Magma) [n: n in [1..500]|IsPrime(n^7-2)]; // _Vincenzo Librandi_, Nov 26 2010
%o (PARI) is(n)=isprime(n^7-2) \\ _Charles R Greathouse IV_, Feb 17 2017
%Y Cf. A028870, A038599, A154831, A154832, A154833, A154834, A154933, A154934.
%K nonn,easy
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jan 17 2009
|
