A074965 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.

5, 17, 29, 41, 61, 73, 97, 101, 113, 137, 149, 157, 181, 193, 197, 241, 269, 281, 313, 373, 401, 421, 433, 449, 457, 461, 521, 541, 569, 601, 617, 641, 673, 733, 769, 809, 821, 857, 881, 929, 937, 953, 1009, 1021, 1033, 1049, 1061, 1117, 1201, 1229, 1277

Offset

1,1

Links

Table of n, a(n) for n=1..51.

Mathematica

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

Crossrefs

Sequence in context: A040117 A145471 A126193 * A145475 A071695 A242025

Adjacent sequences: A074962 A074963 A074964 * A074966 A074967 A074968

Keyword

nonn

Author

Roger L. Bagula, Oct 05 2002

Extensions

Edited by Dean Hickerson, Oct 08 2002

Status

approved