OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..10000
MATHEMATICA
Position[Partition[DivisorSigma[0, Range[900]], 4, 1], _?(Max[ Differences[ #]]< 1&), 1, Heads->False]//Flatten (* Harvey P. Dale, Sep 05 2019 *)
PROG
(Python)
from sympy import divisor_count as tau
[n for n in range(1, 901) if tau(n) >= tau(n+1) >= tau(n+2) >= tau(n+3)] # Karl V. Keller, Jr., Jul 10 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Sep 02 2002
EXTENSIONS
More terms from Benoit Cloitre, Sep 07 2002
STATUS
approved