login
A096311
Numbers whose number of divisors equals the largest digit.
0
1, 2, 14, 34, 63, 78, 88, 116, 128, 134, 138, 141, 142, 143, 164, 182, 184, 186, 196, 211, 214, 236, 238, 248, 258, 261, 282, 285, 286, 314, 316, 318, 328, 334, 341, 343, 356, 363, 385, 403, 411, 413, 418, 422, 436, 438, 483, 488, 518, 556, 568, 582, 584, 603
OFFSET
1,2
MATHEMATICA
Select[Range[1000], Max[IntegerDigits[#]]== DivisorSigma[0, #]&] (* Harvey P. Dale, Mar 13 2011 *)
CROSSREFS
Sequence in context: A073535 A225292 A060626 * A034842 A324043 A230894
KEYWORD
base,easy,nonn
AUTHOR
Jason Earls, Jun 27 2004
STATUS
approved