OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
a[n_] := Module[{d = Divisors[n]}, k = Length[d]; While[!PalindromeQ[d[[k]]], k--]; d[[k]]]; Array[a, 101] (* Amiram Eldar, Dec 16 2019 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Jason Earls, May 07 2004
STATUS
approved