login
Primes p for which there is an integer k such that (2*k+1)*p=2*k*q+1, where q is the next prime after p. Equivalently, (p-1)/(2*(q-p)) is an integer.
0

%I #6 Jun 24 2014 01:08:26

%S 5,17,29,41,61,73,97,101,113,137,149,157,181,193,197,241,269,281,313,

%T 373,401,421,433,449,457,461,521,541,569,601,617,641,673,733,769,809,

%U 821,857,881,929,937,953,1009,1021,1033,1049,1061,1117,1201,1229,1277

%N Primes p for which there is an integer k such that (2*k+1)*p=2*k*q+1, where q is the next prime after p. Equivalently, (p-1)/(2*(q-p)) is an integer.

%t Prime/@Select[Range[210], IntegerQ[(Prime[ # ]-1)/2/(Prime[ #+1]-Prime[ # ])]&]

%K nonn

%O 1,1

%A _Roger L. Bagula_, Oct 05 2002

%E Edited by _Dean Hickerson_, Oct 08 2002