A029951 - OEIS

%I #19 Aug 11 2024 14:41:30

%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="https://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_