A188598 Numbers k such that d(k-1) > d(k) > d(k+1) where d(k) is the number of divisors of k.

46, 81, 82, 106, 166, 225, 226, 261, 262, 273, 316, 325, 346, 358, 385, 406, 436, 441, 442, 465, 466, 477, 478, 496, 513, 556, 561, 562, 568, 586, 595, 596, 621, 625, 628, 651, 652, 676, 705, 715, 716, 796, 801, 826, 837, 838, 856, 861, 862, 885, 886, 892, 897, 916, 925, 946, 976, 981, 982

Offset: 1

Author

Juri-Stepan Gerasimov, Apr 05 2011

Keywords

• nonn

Comments

A000005(a(n)-1) > A000005(a(n)) > A000005(a(n)+1).

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000005, A188631, A075029.

Programs

Mathematica

Select[Range[2, 1000], DivisorSigma[0, # - 1] > DivisorSigma[0, #] > DivisorSigma[0, # + 1] &] (* T. D. Noe, Apr 05 2011 *)

Extensions

Corrected and extended by T. D. Noe, Apr 05 2011