OFFSET
1,1
LINKS
Jinyuan Wang, Table of n, a(n) for n = 1..5000
MATHEMATICA
q=5; lst={}; Do[If[Plus@@Last/@FactorInteger[n-1]==q&&Plus@@Last/@FactorInteger[n+1]==q, AppendTo[lst, n]], {n, 7!}]; lst
Select[Range[6000], PrimeOmega[#+{1, -1}]=={5, 5}&] (* Harvey P. Dale, Jun 05 2021 *)
Mean/@SequencePosition[PrimeOmega[Range[6000]], {5, _, 5}] (* Harvey P. Dale, Oct 19 2023 *)
PROG
(PARI) is(k) = bigomega(k-1)==5 && bigomega(k+1)==5; \\ Jinyuan Wang, Mar 22 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Mar 01 2009
EXTENSIONS
More terms from Jinyuan Wang, Mar 22 2020
STATUS
approved