OFFSET
1,1
COMMENTS
200, 236, 392 and 634 are terms. - Chai Wah Wu, Jan 03 2020
MATHEMATICA
Select[Range[30], PrimeOmega[#! - 1] == PrimeOmega[#! + 1] &] (* Amiram Eldar, Dec 01 2019 *)
PROG
(PARI) for(n=2, 100, if(bigomega(n!+1)==bigomega(n!-1), print(n)))
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Jason Earls, Sep 20 2001
EXTENSIONS
a(15)-a(25) from Donovan Johnson, Mar 09 2008
Offset corrected by Donovan Johnson, Jul 11 2013
a(26)-a(27) from Amiram Eldar, Dec 01 2019
STATUS
approved