OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..4000
MATHEMATICA
q=6; lst={}; Do[If[Plus@@Last/@FactorInteger[n-1]==q&&Plus@@Last/@FactorInteger[n+1]==q, AppendTo[lst, n]], {n, 9!}]; lst
Mean/@SequencePosition[PrimeOmega[Range[20000]], {6, _, 6}] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 23 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Mar 01 2009
STATUS
approved