%I A138063
%S A138063 521,1931,1949,2111,2309,2591,3389,4421,4547,6449,6761,7349,7949,9239,
%T A138063 9719,9767,10007,10037,10499,10529,10709,11351,11549,11717
%N A138063 Prime number n, lesser of twin primes, isolated from neighboring primes 
               by +- 10 (or more).
%e A138063 521- 2 = 519 (3*173) 523+ 2 = 525 (3*5*7)
%e A138063 521- 4 = 517 (11*43) 523+ 4 = 527 (17*31)
%e A138063 521- 6 = 515 (5*103) 523+ 6 = 529 (23*23)
%e A138063 521- 8 = 513 (3*3*3*19) 523+ 8 = 531 (3*3*59)
%e A138063 521-10 = 511 (7*73) 523+10 = 533 (13*41)
%t A138063 q=10;s="";For[i=1,i<10^2*5,n=Prime[i];m=n+2;If[PrimeQ[m],a=0;For[j=2,
               j<=q,If[PrimeQ[n-j]||PrimeQ[m+j],a=1;Break[]];j=j+2];If[a==0,s=s<>
               ToString[n]<>","]];i++ ];Print[s]
%Y A138063 Sequence in context: A113158 A004928 A004948 this_sequence A167734 A122715 
               A153180
%Y A138063 Adjacent sequences: A138060 A138061 A138062 this_sequence A138064 A138065 
               A138066
%K A138063 nonn
%O A138063 1,1
%A A138063 Vladimir Orlovsky (4vladimir(AT)gmail.com), May 02 2008