OFFSET
1,1
MATHEMATICA
upper=600000;
Select[Range[upper],
PrimeOmega[#^5 - 1] == PrimeOmega[#^5 + 1] == 2 &]
PROG
(PARI) isok(n) = (bigomega(n^5-1)==2) && (bigomega(n^5+1)==2); \\ Michel Marcus, Sep 22 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Gary E. Davis, Sep 21 2016
EXTENSIONS
More terms from Altug Alkan, Sep 30 2016
STATUS
approved