A242274 Numbers k such that k*3^k - 1 is semiprime.
4, 5, 8, 12, 20, 24, 25, 28, 32, 38, 42, 44, 60, 62, 66, 70, 72, 80, 122, 125, 148, 228, 244, 270, 389, 390, 432, 464, 470, 488, 549, 560, 804, 862
Offset: 1
Programs
-
Magma
IsSemiprime:=func; [n: n in [2..241] | IsSemiprime(s) where s is n*3^n-1];
-
Mathematica
Select[Range[241], PrimeOmega[# 3^# - 1]==2&]
-
PARI
isok(n)=bigomega(n*3^n-1)==2 /* Anders Hellström, Aug 18 2015 */
Extensions
a(21)-a(23) from Carl Schildkraut, Aug 18 2015
a(24)-a(32) from Luke March, Aug 22 2015
a(32) = 804 removed by Sean A. Irvine, Apr 25 2022
a(32)-a(33) from Sean A. Irvine, Jun 20 2022
a(34) from Tyler Busby, Oct 06 2023
Comments