login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Primes p such that p + 38 is also prime.
4

%I #13 Sep 16 2024 19:25:05

%S 3,5,23,29,41,59,71,89,101,113,173,191,233,239,269,293,311,359,383,

%T 401,419,449,461,503,509,563,569,593,653,701,719,773,821,839,881,929,

%U 953,971,983,1013,1031,1049,1091,1163,1193,1259,1283,1289

%N Primes p such that p + 38 is also prime.

%C A134118 is a subsequence of this sequence.

%H Karl V. Keller, Jr., <a href="/A271347/b271347.txt">Table of n, a(n) for n = 1..10000</a>

%e 3 such that 3 + 38 = 41 is also prime.

%e 5 such that 5 + 38 = 43 is also prime.

%t Select[Prime[Range[250]], PrimeQ[# + 38] &] (* _Alonso del Arte_, Apr 05 2016 *)

%o (Python)

%o from sympy import isprime

%o for i in range(3, 2001,2):

%o if isprime(i) and isprime(i+38): print (i,end=', ')

%o (PARI) lista(nn) = forprime(p=2, nn, if(ispseudoprime(p+38), print1(p, ", "))); \\ _Altug Alkan_, Apr 05 2016

%Y Cf. A000040, A134118.

%K nonn

%O 1,1

%A _Karl V. Keller, Jr._, Apr 04 2016