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
KEYWORD
base,easy,nonn
AUTHOR
Jason Earls, Aug 12 2005
STATUS
approved