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
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
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
Comments