A109759 Palindromic admirable numbers.

66, 88, 222, 282, 464, 474, 606, 868, 2002, 20802, 24042, 24342, 24942, 29092, 41214, 44144, 45354, 46564, 47274, 60906, 64146, 66966, 67676, 80108, 81318, 83238, 85458, 85758, 87378, 89898, 2002002, 2008002, 2024202, 2027202, 2032302

Offset: 1

Author

Jason Earls, Aug 12 2005

Keywords

• base
• easy
• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..1000

Crossrefs

Intersection of A002113 and A111592.

Programs

Mathematica

palQ[n_] := PalindromeQ @ IntegerDigits[n]; admQ[n_] := (ab = DivisorSigma[1, n] - 2 n) > 0 && EvenQ[ab] && ab/2 < n && Divisible[n, ab/2]; Select[Range[2*10^6], palQ[#] && admQ[#] &] (* Amiram Eldar, Oct 27 2019 *)