|
%I #9 Dec 09 2013 13:05:35
%S 5,15,35,55,65,75,105,155,205,215,225,275,285,295,365,405,435,475,495,
%T 555,565,595,625,665,695,735,765,825,895,945,985,1055,1085,1115,1155,
%U 1205,1225,1265,1315,1335,1385,1505,1595,1605,1645,1745,1805,1835,1885
%N Numbers n such that 3*n+2 and 3*n-2 are both prime for n multiple of 5 (A008587).
%F Intersection of A008587 and A157834.
%e For n=15; 3*15+2=47 and 3*15-2=43.
%t Select[5*Range[500], PrimeQ[3 # + 2] && PrimeQ[3 # - 2] &] (* _T. D. Noe_, Dec 09 2013 *)
%o (TI-BASIC) Clrio:5(sto)n:Lbl colorin:if isPrime(3n+2) and isPrime(3n-2) Then:Disp n:Pause: EndIf:n+5(sto)n:Goto colorin:EndPrgm
%Y Cf. A157834 (n such that 3n-2 and 3n+2 are both prime).
%K nonn,less
%O 1,1
%A _César Aguilera_, Dec 07 2013
|
