%I #21 Mar 20 2024 03:11:08
%S 2,4,6,22,44,212,262,282,434,474,646,666,818,838,868,2442,2662,2772,
%T 4884,4994,6666,6886,8118,8338,20202,20402,21012,21812,22322,22422,
%U 22922,23332,23532,24042,25652,26162,26262,26562,26762,27372,28682,40204,40804
%N Palindromic even lucky numbers.
%H Amiram Eldar, <a href="/A045960/b045960.txt">Table of n, a(n) for n = 1..1066</a> (terms below 10^8)
%t lst = Range[2, 50000, 2];
%t i = 2;
%t While[i <= (len = Length@lst) && (k = lst[[i]]) <= len, lst = Drop[lst, {k, len, k}]; i++];
%t Select[lst, PalindromeQ] (* _Jean-François Alcover_, Sep 01 2022, after _Robert G. Wilson v_ in A045954 *)
%Y Intersection of A002113 and A045954.
%K nice,nonn,base
%O 1,1
%A _Felice Russo_
%E More terms from _David W. Wilson_