A242336 Numbers k such that k*5^k-1 is semiprime.
1, 2, 6, 12, 15, 19, 20, 26, 50, 55, 66, 68, 96, 99, 150, 166, 228, 459
Offset: 1
Programs
-
Magma
IsSemiprime:=func; [n: n in [1..400] | IsSemiprime(s) where s is n*5^n-1];
-
Maple
select(t -> (numtheory:-bigomega(t*5^t-1)=2), [$1..400]); # Robert Israel, Aug 18 2015
-
Mathematica
Select[Range[400], PrimeOmega[# 5^# - 1]==2&]
Extensions
1 prepended by Carl Schildkraut, Aug 18 2015
a(13)-a(17) from Carl Schildkraut, Aug 18 2015
a(18) from Daniel Suteu, Aug 05 2019
Comments