Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #6 Mar 30 2012 17:26:03
%S 6,9,15,21,39,69,93,111,129,309,381,393,453,489,501,687,723,771,879,
%T 933,939,1011,1167,1299,1527,1563,1569,1839,1941,1983,2157,2217,2229,
%U 2271,2391,2463,2661,2811,2859,2913,3039,3099,3189,3453,3459,3651,3849
%N Interprimes which are of the form s*prime, s=3.
%C Interprimes which are of the form s*prime are in A075277-A075296 (s = 2-21). Case s = 1 is impossible.
%e 39 is an interprime and 39/3 = 13 is prime.
%t s=3; Select[Table[(Prime[n+1]+Prime[n])/2, {n, 2, 1000}], PrimeQ[ #/s]&]
%Y Cf. A075277--A075296.
%K easy,nonn
%O 1,1
%A _Zak Seidov_, Sep 12 2002