A242339 Numbers k such that k*8^k-1 is semiprime.
3, 6, 9, 13, 21, 24, 32, 45, 61, 62, 73, 132, 150, 174, 187, 217, 266, 331, 534
Offset: 1
Programs
-
Magma
IsSemiprime:=func; [n: n in [2..80] | IsSemiprime(s) where s is n*8^n-1];
-
Mathematica
Select[Range[80], PrimeOmega[# 8^# - 1]==2&]
-
PARI
isok(n)=bigomega(n*8^n-1)==2 /* Anders Hellström, Aug 18 2015 */
Extensions
a(12)-a(19) from Luke March, Aug 14 2015
Comments