|
%I #18 Dec 03 2023 22:00:57
%S 0,2,4,6,8,22,44,66,88,202,212,222,232,242,252,262,272,282,292,404,
%T 414,424,434,444,454,464,474,484,494,606,616,626,636,646,656,666,676,
%U 686,696,808,818,828,838,848,858,868,878,888,898,2002,2112,2222
%N Even palindromes.
%H John Cerkan, <a href="/A029951/b029951.txt">Table of n, a(n) for n = 1..10000</a>
%H P. De Geest, <a href="http://www.worldofnumbers.com/index.html">World!Of Numbers</a>
%t palindromicQ[n_, b_:10] := TrueQ[IntegerDigits[n, b] == Reverse[IntegerDigits[n, b]]]; Select[Range[2, 10^4, 2], palindromicQ[#] &] (* _Alonso del Arte_, Feb 23 2012 *)
%t Select[Range[0, 2222, 2], PalindromeQ] (* _Michael De Vlieger_, May 12 2017, Version 10.3 *)
%Y Cf. A002113 (superset), A062287 (subset), A367807 (halved).
%K nonn,base
%O 1,2
%A _Patrick De Geest_
|
