A093030 Largest palindromic divisor of n.

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

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

Cf. A093888.

Sequence in context: A061500 A051796 A257296 * A122425 A360073 A074044

Adjacent sequences: A093027 A093028 A093029 * A093031 A093032 A093033

Keyword

base,easy,nonn

Author

Jason Earls, May 07 2004

Status

approved