login
A109759
Palindromic admirable numbers.
1
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
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 A281937 A109141
KEYWORD
base,easy,nonn
AUTHOR
Jason Earls, Aug 12 2005
STATUS
approved