OFFSET
1,2
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..150
FORMULA
a(n)=Min{x; A087990[x]=n}
EXAMPLE
n=24: a(24)=26664 has 32 divisors of which 24 are palindromic numbers: {1, 2, 3, 4, 6, 8, 11, 22, 33, 44, 66, 88, 101, 202, 303, 404, 606, 808, 1111, 2222, 3333, 4444, 6666, 8888}.
Some solutions are palindromic (like 2112), some are not (like 132).
MATHEMATICA
t = Table[Count[Divisors[k], _?(Reverse[x = IntegerDigits[#]] == x &)], {k, 2, 15*10^5, 2}]; Join[{1}, Table[i = 1; While[t[[i]] != k, i++]; 2 i, {k, 2, 39}]] (* Jayanta Basu, Aug 12 2013 *)
Module[{pds=Table[{n, Count[Divisors[n], _?PalindromeQ]}, {n, 1214000}]}, Table[ SelectFirst[pds, #[[2]]==k&], {k, 39}]][[All, 1]] (* Harvey P. Dale, Dec 17 2021 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Labos Elemer, Oct 13 2003
EXTENSIONS
More terms from Ray Chandler, Oct 17 2003
STATUS
approved