%I #8 Jul 31 2018 19:33:08
%S 12,76,236,356,436,596,604,1268,1324,1436,1556,1604,1756,2284,2396,
%T 3316,3764,3812,4076,4612,4996,5116,5276,5492,5524,5804,6628,6676,
%U 6932,6964,7468,7484,7892,8524,8644,8716,9004,9836,11276,12476,14156,14636
%N Interprimes which are of the form s*prime, s=4.
%C Interprimes which are of the form s*prime are in A075277-A075296 (s = 2-21). Case s = 1 is impossible.
%H Harvey P. Dale, <a href="/A075279/b075279.txt">Table of n, a(n) for n = 1..1000</a>
%e 236 is an interprime and 236/4 = 59 is prime.
%t s=4; Select[Table[(Prime[n+1]+Prime[n])/2, {n, 2, 1000}], PrimeQ[ #/s]&]
%t Select[Mean/@Partition[Prime[Range[2000]],2,1],PrimeQ[#/4]&] (* _Harvey P. Dale_, Jul 31 2018 *)
%Y Cf. A075277-A075296.
%K easy,nonn
%O 1,1
%A _Zak Seidov_, Sep 12 2002