A075288 Interprimes (A024675) which are of the form s*prime, s=13.

26, 39, 1313, 4771, 7033, 9607, 11947, 12233, 14963, 15613, 18707, 20527, 24323, 26507, 27443, 30823, 31057, 33917, 36257, 43277, 45383, 48061, 48347, 48997, 52039, 57083, 61477, 66547, 75283, 75491, 77207, 83863, 84383, 85787, 86567

Offset: 1

Author

Zak Seidov, Sep 12 2002

Keywords

• easy
• nonn

Comments

Interprimes of the form s*prime are in A075277-A075296 ( s = 2 - 21 ). Case s=1 is impossible.

Examples

			1313 is an interprime and 1313/13 = 101 is prime.
		

Links

• David A. Corneth, Table of n, a(n) for n = 1..10001

Crossrefs

Cf. A024675, A075277-A075296.

Programs

Mathematica

s=13; Select[Table[(Prime[n+1]+Prime[n])/2, {n, 2, 4000}], PrimeQ[ #/s]&]
Select[Mean/@Partition[Prime[Range[2,8500]],2,1],PrimeQ[#/13]&] (* Harvey P. Dale, Apr 29 2012 *)

PARI

first(n) = {my(res = List(), p); forprime(p=2, oo, if(precprime(13*p) + nextprime(13*p) == 26*p, listput(res, 13*p); if(#res>=n, return(res))))} \\ David A. Corneth, Jul 26 2017