OFFSET
1,1
COMMENTS
Numbers k such that k-1 and k^4+k^3+k^2+k+1 are both prime.
EXAMPLE
a(1) = 12 because 12^5-1 = 248831 = 11*22621.
MATHEMATICA
Select[Range[5000], PrimeOmega[#^5 - 1] == 2 &]
PROG
(Magma) IsSemiprime:=func<i | &+[d[2]: d in Factorization(i)] eq 2>; [n: n in [2..5000] | IsSemiprime(s) where s is n^5- 1];
(PARI) isok(n)=bigomega(n^5-1)==2 \\ Anders Hellström, Aug 20 2015
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Aug 20 2015
STATUS
approved
