A075285 Interprimes which are of the form s*prime, s=10.
30, 50, 170, 370, 590, 610, 730, 1370, 1390, 1910, 1990, 2290, 3310, 3730, 4010, 4990, 5410, 6070, 6590, 7190, 7870, 8770, 9470, 9970, 10610, 11090, 11810, 11930, 12970, 14470, 15230, 15310, 16270, 16570, 16990, 17330, 18790, 19130, 20110
Offset: 1
Examples
370 is an interprime and 370/10 = 37 is prime.
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
s=10; Select[Table[(Prime[n+1]+Prime[n])/2, {n, 2, 4000}], PrimeQ[ #/s]&] Select[Mean/@Partition[Prime[Range[2500]],2,1],PrimeQ[#/10]&] (* Harvey P. Dale, Jun 24 2017 *)
Comments