login
A075288
Interprimes (A024675) which are of the form s*prime, s=13.
1
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,1
COMMENTS
Interprimes of the form s*prime are in A075277-A075296 ( s = 2 - 21 ). Case s=1 is impossible.
LINKS
EXAMPLE
1313 is an interprime and 1313/13 = 101 is prime.
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 *)
PROG
(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
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Zak Seidov, Sep 12 2002
STATUS
approved