A242340 Numbers k such that k*9^k-1 is semiprime.
2, 3, 6, 8, 11, 18, 28, 38, 48, 168, 254, 274, 310, 430
Offset: 1
Programs
-
Magma
IsSemiprime:=func; [n: n in [2..70] | IsSemiprime(s) where s is n*9^n-1];
-
Mathematica
Select[Range[70], PrimeOmega[# 9^# - 1]==2&]
Extensions
a(10)-a(14) from Daniel Suteu, Aug 05 2019
Comments