%I #6 Mar 30 2012 17:26:03
%S 30,45,105,165,195,465,615,645,705,885,915,1095,1695,2085,2685,2955,
%T 2985,3165,3345,3495,3615,3945,4065,4155,4755,5055,5235,5505,6645,
%U 6735,8445,8655,8805,8985,9465,9885,9915,10155,10245,10635,10785,11085
%N Interprimes which are of the form s*prime, s=15.
%C Interprimes of the form s*prime are in A075277-A075296 ( s = 2 - 21 ). Case s=1 is impossible.
%e 105 is an interprime and 105/15 = 7 is prime.
%t s=15; Select[Table[(Prime[n+1]+Prime[n])/2, {n, 2, 4000}], PrimeQ[ #/s]&]
%Y Cf. A075277-A075296.
%K easy,nonn
%O 1,1
%A _Zak Seidov_, Sep 12 2002
|