%I #13 Apr 03 2023 10:36:10
%S 0,12,20,26,32,54,66,92,96,104,126,132,140,144,152,174,176,180,182,
%T 186,194,200,204,210,222,230,260,264,276,284,290,302,306,336,342,360,
%U 384,390,402,404,414,416,420,480,482,486,500,510,536,546,566,570,582,584
%N Numbers n such that 137*n + 139 is prime.
%C 137 and 139 are twin primes.
%H Harvey P. Dale, <a href="/A108027/b108027.txt">Table of n, a(n) for n = 1..1000</a>
%H Chris Caldwell, <a href="https://t5k.org/lists/small/1ktwins.txt">The First 1,008 Twin Primes</a>.
%e If n=104 then 137*n + 139 = 14387 (prime).
%p a:=proc(n) if isprime(137*n+139)=true then n else fi end: seq(a(n),n=0..700); # _Emeric Deutsch_
%t Select[Range[0,600],PrimeQ[137#+139]&] (* _Harvey P. Dale_, Apr 03 2017 *)
%o (PARI) is(n)=isprime(137*n+139) \\ _Charles R Greathouse IV_, May 22 2017
%K nonn
%O 1,2
%A _Parthasarathy Nambi_, May 31 2005
%E More terms from _Emeric Deutsch_, Jun 13 2005
|