A033300 Smallest safe prime ((p-1)/2 is also prime) > n-th prime.

5, 5, 7, 11, 23, 23, 23, 23, 47, 47, 47, 47, 47, 47, 59, 59, 83, 83, 83, 83, 83, 83, 107, 107, 107, 107, 107, 167, 167, 167, 167, 167, 167, 167, 167, 167, 167, 167, 179, 179, 227, 227, 227, 227, 227, 227, 227, 227

Offset

0,1

Links

Harvey P. Dale, Table of n, a(n) for n = 0..1000

Maple

with(numtheory); safeprime(ithprime(i));

Mathematica

ssp[n_]:=Module[{p=NextPrime[Prime[n]]}, While[!PrimeQ[(p-1)/2], p=NextPrime[p]]; p]; Array[ssp, 50] (* Harvey P. Dale, Dec 22 2013 *)

Crossrefs

Sequence in context: A300916 A134125 A097996 * A134130 A078551 A247877

Adjacent sequences: A033297 A033298 A033299 * A033301 A033302 A033303

Keyword

nonn

Author

N. J. A. Sloane.

Status

approved