OFFSET
1,1
MAPLE
Tau:= map(numtheory:-tau, [$1..10001]):
select(t -> Tau[t] < Tau[t-1] and Tau[t] < Tau[t+1], [seq(i, i=2..10000, 2)]); # Robert Israel, Mar 28 2023
MATHEMATICA
Select[2 Range[10000],
DivisorSigma[0, #] < DivisorSigma[0, # + 1] &&
DivisorSigma[0, #] < DivisorSigma[0, # - 1] &]
PROG
(PARI) isok(k) = !(k%2) && (numdiv(k) < min(numdiv(k-1), numdiv(k+1))); \\ Michel Marcus, Mar 26 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
Steven Lu, Mar 25 2023
STATUS
approved