login
A182690
a(n) = the largest 2-digit number with exactly n divisors, a(n) = 0 if no such number exists.
1
0, 97, 49, 95, 81, 99, 64, 88, 36, 80, 0, 96, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
OFFSET
1,2
FORMULA
A000005(a(n)) = n for a(n) > 0.
12 = max n such that a(n) > 0, a(n) = 0 for n > 12.
MATHEMATICA
With[{ds=Reverse[Table[{n, DivisorSigma[0, n]}, {n, 10, 99}]]}, Table[ SelectFirst[ ds, #[[2]]==k&], {k, 50}]][[All, 1]]/."NotFound"->0 (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 24 2019 *)
CROSSREFS
Cf. A182689.
Sequence in context: A094498 A068830 A033417 * A088866 A244192 A075478
KEYWORD
nonn,base,less
AUTHOR
Jaroslav Krizek, Nov 27 2010
STATUS
approved