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,1

Links

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

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 *)

Crossrefs

Intersection of A002113 and A111592.

Sequence in context: A223734 A031411 A098775 * A194196 A379137 A281937

Adjacent sequences: A109756 A109757 A109758 * A109760 A109761 A109762

Keyword

base,easy,nonn

Author

Jason Earls, Aug 12 2005

Status

approved