A075279 Interprimes which are of the form s*prime, s=4.
12, 76, 236, 356, 436, 596, 604, 1268, 1324, 1436, 1556, 1604, 1756, 2284, 2396, 3316, 3764, 3812, 4076, 4612, 4996, 5116, 5276, 5492, 5524, 5804, 6628, 6676, 6932, 6964, 7468, 7484, 7892, 8524, 8644, 8716, 9004, 9836, 11276, 12476, 14156, 14636
Offset: 1
Examples
236 is an interprime and 236/4 = 59 is prime.
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
s=4; Select[Table[(Prime[n+1]+Prime[n])/2, {n, 2, 1000}], PrimeQ[ #/s]&] Select[Mean/@Partition[Prime[Range[2000]],2,1],PrimeQ[#/4]&] (* Harvey P. Dale, Jul 31 2018 *)
Comments