A075294 Interprimes which are of the form s*prime, s=19.
4883, 5833, 8341, 11267, 23047, 23503, 27037, 28253, 29089, 39691, 40603, 41857, 44783, 51053, 52307, 52763, 56107, 57703, 61769, 73739, 76931, 77767, 82897, 83999, 85633, 87077, 88217, 92663, 115007, 121391, 123899, 125533, 129713
Offset: 1
Examples
4883 is an interprime and 4883/19 = 257 is prime.
Programs
-
Mathematica
s=19; Select[Table[(Prime[n+1]+Prime[n])/2, {n, 2, 14000}], PrimeQ[ #/s]&]
Comments