OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MAPLE
g(n) = forstep(x=4, n, 2, p1=bigomega(x-2); p2=bigomega(x+2); if(p1==p2, print(x", ")))
MATHEMATICA
Select[Range[4, 472, 2], PrimeOmega[# - 2] == PrimeOmega[# + 2] &] (* Amiram Eldar, Sep 23 2019 *)
2*Mean/@SequencePosition[Table[PrimeOmega[n], {n, 2, 500, 2}], {x_, _, x_}] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 20 2021 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, Mar 03 2006
STATUS
approved