A242203 Numbers n such that n*3^n + 1 is semiprime.
1, 3, 10, 16, 20, 22, 24, 34, 39, 56, 63, 108, 128, 194, 202, 212, 214, 218, 314, 364, 662, 722
Offset: 1
Crossrefs
Programs
-
Magma
IsSemiprime:=func; [n: n in [1..130] | IsSemiprime(s) where s is n*3^n+1];
-
Mathematica
Select[Range[130], PrimeOmega[# 3^# + 1] == 2 &]
-
PARI
isok(n) = bigomega(n*3^n + 1)==2; \\ Michel Marcus, Mar 30 2019
Extensions
a(14)-a(20) from Luke March, Jul 30 2015
a(21)-a(22) from Daniel Suteu, Mar 30 2019
Comments