%I #6 Mar 30 2012 17:26:03
%S 4883,5833,8341,11267,23047,23503,27037,28253,29089,39691,40603,41857,
%T 44783,51053,52307,52763,56107,57703,61769,73739,76931,77767,82897,
%U 83999,85633,87077,88217,92663,115007,121391,123899,125533,129713
%N Interprimes which are of the form s*prime, s=19.
%C Interprimes of the form s*prime are in A075277-A075296 ( s = 2 - 21 ). Case s=1 is impossible.
%e 4883 is an interprime and 4883/19 = 257 is prime.
%t s=19; Select[Table[(Prime[n+1]+Prime[n])/2, {n, 2, 14000}], PrimeQ[ #/s]&]
%Y Cf. A075277-A075296.
%K easy,nonn
%O 1,1
%A _Zak Seidov_, Sep 12 2002