OFFSET
1,1
COMMENTS
It's often the case that an odd number has fewer divisors than at least one of its adjacent even numbers. This sequence lists the exceptions.
Most terms are congruent to 3 modulo 6. The smallest term congruent to 1 modulo 6 is 2275, and the smallest term congruent to 5 modulo 6 is 6125.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
d(314) = 4, d(315) = 12, d(316) = 6, so 315 is a term.
MAPLE
q:= k-> k::odd and (d-> d(k-1)<d(k) and d(k)>d(k+1))(numtheory[tau]):
select(q, [$1..2000])[]; # Alois P. Heinz, Sep 28 2021
MATHEMATICA
Select[Range[3, 2001, 2], (d = DivisorSigma[0, #] & /@ (# + Range[-1, 1]))[[2]] > d[[1]] && d[[2]] > d[[3]] &] (* Amiram Eldar, Jul 22 2019 *)
PROG
(PARI) forstep(n=3, 2000, 2, if(numdiv(n)>numdiv(n-1)&&numdiv(n)>numdiv(n+1), print1(n, ", ")))
CROSSREFS
KEYWORD
nonn
AUTHOR
Jianing Song, Jan 12 2019
STATUS
approved