[go: up one dir, main page]

login
A188598
Numbers k such that d(k-1) > d(k) > d(k+1) where d(k) is the number of divisors of k.
1
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
MATHEMATICA
Select[Range[2, 1000], DivisorSigma[0, # - 1] > DivisorSigma[0, #] > DivisorSigma[0, # + 1] &] (* T. D. Noe, Apr 05 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Corrected and extended by T. D. Noe, Apr 05 2011
STATUS
approved