A033300 - OEIS

%I #6 Dec 22 2013 12:05:39

%S 5,5,7,11,23,23,23,23,47,47,47,47,47,47,59,59,83,83,83,83,83,83,107,

%T 107,107,107,107,167,167,167,167,167,167,167,167,167,167,167,179,179,

%U 227,227,227,227,227,227,227,227

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

%H Harvey P. Dale, <a href="/A033300/b033300.txt">Table of n, a(n) for n = 0..1000</a>

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

%t 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 *)

%K nonn

%O 0,1

%A _N. J. A. Sloane_.