|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
KEYWORD
|
base,easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|