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,1

Comments

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

Links

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

Mathematica

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

Crossrefs

Cf. A000005, A188631, A075029.

Sequence in context: A245372 A020351 A113691 * A363049 A057454 A260278

Adjacent sequences: A188595 A188596 A188597 * A188599 A188600 A188601

Keyword

nonn

Author

Juri-Stepan Gerasimov, Apr 05 2011

Extensions

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

Status

approved