A075292 Interprimes which are of the form s*prime, s=17.
34, 1003, 1207, 5933, 6613, 6749, 10217, 10897, 18547, 18649, 22117, 23137, 23239, 25177, 34493, 38267, 40477, 43469, 44047, 49351, 54553, 58973, 60503, 62441, 66623, 67813, 71893, 76619, 79543, 80257, 80903, 85153, 86683, 87601, 89437
Offset: 1
Examples
1207 is an interprime and 1207/17 = 71 is prime.
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
s=17; Select[Table[(Prime[n+1]+Prime[n])/2, {n, 2, 4000}], PrimeQ[ #/s]&] Select[Mean[#]&/@Partition[Prime[Range[9000]],2,1],PrimeQ[#/17]&] (* Harvey P. Dale, Apr 06 2016 *)
Comments