login
Palindromic even lucky numbers.
1

%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_