%I #7 Jan 04 2018 18:36:55
%S 4983,105369,113289,150051,191829,208131,277167,305349,363957,400323,
%T 494241,541233,577269,656271,668547,995247,1141503,1218261,1360623,
%U 1494537,1501863,1528857,1531959,1534533,1535919,1621653,1651551,1864863,1950597,1969539,2130513
%N Numbers n such that n^10+10 and n^10-10 are prime.
%C All numbers are congruent to 33 mod 66.
%C Intersection of A239347 and A239418.
%e 4983^10+10 = 9438628041688305771192954743294050459 is prime and 4983^10-10 = 9438628041688305771192954743294050439 is prime. Thus, 4983 is a member of this sequence.
%t Select[Range[22*10^5],AllTrue[#^10+{10,-10},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Jan 04 2018 *)
%o (Python)
%o import sympy
%o from sympy import isprime
%o def TwoBoth(x):
%o ..for k in range(10**8):
%o ....if isprime(k**x+x) and isprime(k**x-x):
%o ......print(k)
%o TwoBoth(10)
%Y Cf. A239347, A239418.
%K nonn
%O 1,1
%A _Derek Orr_, Mar 20 2014
|