OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
MATHEMATICA
Select[Range[10^4], PrimeOmega[#-2]==PrimeOmega[#]==PrimeOmega[#+2]&] (* Metin Sariyar, Oct 14 2019 *)
Flatten[Position[Partition[PrimeOmega[Range[2000]], 5, 1], _?(#[[1]]== #[[3]] == #[[5]]&), 1, Heads->False]]+2 (* Harvey P. Dale, Nov 02 2021 *)
PROG
(Magma) [k: k in [4..1300]| forall{m:m in [-2, 2]| &+[p[2]: p in Factorization(k+m)] eq &+[p[2]: p in Factorization(k)] }]; // Marius A. Burtea, Oct 15 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Oct 14 2019
STATUS
approved