login
A093030
Largest palindromic divisor of n.
3
1, 2, 3, 4, 5, 6, 7, 8, 9, 5, 11, 6, 1, 7, 5, 8, 1, 9, 1, 5, 7, 22, 1, 8, 5, 2, 9, 7, 1, 6, 1, 8, 33, 2, 7, 9, 1, 2, 3, 8, 1, 7, 1, 44, 9, 2, 1, 8, 7, 5, 3, 4, 1, 9, 55, 8, 3, 2, 1, 6, 1, 2, 9, 8, 5, 66, 1, 4, 3, 7, 1, 9, 1, 2, 5, 4, 77, 6, 1, 8, 9, 2, 1, 7, 5, 2, 3, 88, 1, 9, 7, 4, 3, 2, 5, 8, 1, 7, 99, 5, 101
OFFSET
1,2
LINKS
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
Cf. A093888.
Sequence in context: A061500 A051796 A257296 * A122425 A360073 A074044
KEYWORD
base,easy,nonn
AUTHOR
Jason Earls, May 07 2004
STATUS
approved