A102414 - OEIS

%I #13 Feb 16 2025 08:32:55

%S 4,4,6,9,14,14,21,21,25,33,33,38,46,46,49,55,62,62,69,74,74,82,85,91,

%T 106,106,106,111,111,115,129,133,141,141,155,155,158,166,169,177,183,

%U 183,194,194,201,201,213,226,235,235,235,247,247,253,259,265,274,274

%N Smallest semiprime greater than n-th prime.

%C A102415(n) < A000040(n) < a(n).

%H Harvey P. Dale, <a href="/A102414/b102414.txt">Table of n, a(n) for n = 1..1000</a>

%H Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/Semiprime.html">Semiprime</a>

%t ssp[n_]:=Module[{k=n+1},While[PrimeOmega[k]!=2,k++];k]; ssp/@Prime[Range[ 60]] (* _Harvey P. Dale_, Aug 18 2012 *)

%o (PARI) a(n) = {sp = prime(n)+1; while(bigomega(sp) != 2, sp++); sp;} \\ _Michel Marcus_, Mar 04 2017

%Y Cf. A001358.

%K nonn

%O 1,1

%A _Reinhard Zumkeller_, Jan 08 2005