OFFSET
1,1
EXAMPLE
120 is in the sequence because it is an highly composite numbers A002182 and its nearest neighbors 119 and 121 both are nonprimes.
MATHEMATICA
s = {}; dm = 0; Do[d = DivisorSigma[0, n]; If[d > dm, dm = d; If[! PrimeQ[n - 1] && ! PrimeQ[n + 1], AppendTo[s, n]]], {n, 1, 10^6}]; s (* Amiram Eldar, Aug 17 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Omar E. Pol, Aug 17 2021
EXTENSIONS
More terms from Amiram Eldar, Aug 17 2021
STATUS
approved