|
%I #22 Mar 12 2022 14:08:31
%S 5,7,9,13,34,40,63,69,85,168,170,183,207,223,247,275,291,306,322,337,
%T 344,352,381,391,397,400,404,469,473,492,570,574,579,590,597,673,680,
%U 696,736,764,786,805,827,890,915,947,1006,1023,1025,1039
%N Numbers k such that (k+1)^11 - k^11 is prime.
%H Vladimir Pletser, <a href="/A211184/b211184.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[1000], PrimeQ[(# + 1)^11 - #^11] &] (* _T. D. Noe_, Feb 04 2013 *)
%o (PARI) isok(k) = isprime((k+1)^11 - k^11); \\ _Michel Marcus_, Mar 12 2022
%Y Cf. A008455 (11th powers), A189055 (resulting primes).
%K nonn,easy
%O 1,1
%A _Vladimir Pletser_, Feb 02 2013
|
