%I #12 Jun 12 2017 19:18:12
%S 1,4,10,18,24,36,40,46,60,64,70,76,78,88,96,124,136,144,150,154,168,
%T 178,180,190,208,210,216,234,238,244,246,256,264,294,298,318,330,334,
%U 340,346,360,378,384,388,418,420,426,430,438,444,456,460,480,486,498,508
%N Numbers n such that 103*n - 101 is prime.
%C 101 and 103 are twin primes.
%H Harvey P. Dale, <a href="/A107372/b107372.txt">Table of n, a(n) for n = 1..1000</a>
%H Chris Caldwell, <a href="http://www.utm.edu/research/primes/lists/small/1ktwins.txt">The First 1,008 Twin Primes</a>.
%e If n=64, then 103*n - 101 = 6491 (prime).
%p a:=proc(n) if isprime(103*n-101)=true then n else fi end: seq(a(n),n=0..700); # _Emeric Deutsch_
%t Select[Range[600],PrimeQ[103#-101]&] (* _Harvey P. Dale_, Oct 03 2012 *)
%o (PARI) is(n)=isprime(103*n-101) \\ _Charles R Greathouse IV_, Jun 12 2017
%K nonn,easy
%O 1,2
%A _Parthasarathy Nambi_, May 24 2005
%E More terms from _Emeric Deutsch_, Jun 13 2005
|