A045960 Palindromic even lucky numbers.

2, 4, 6, 22, 44, 212, 262, 282, 434, 474, 646, 666, 818, 838, 868, 2442, 2662, 2772, 4884, 4994, 6666, 6886, 8118, 8338, 20202, 20402, 21012, 21812, 22322, 22422, 22922, 23332, 23532, 24042, 25652, 26162, 26262, 26562, 26762, 27372, 28682, 40204, 40804

Offset: 1

Author

Felice Russo

Keywords

• nice
• nonn
• base

Links

• Amiram Eldar, Table of n, a(n) for n = 1..1066 (terms below 10^8)

Crossrefs

Intersection of A002113 and A045954.

Programs

Mathematica

lst = Range[2, 50000, 2];
i = 2;
While[i <= (len = Length@lst) && (k = lst[[i]]) <= len, lst = Drop[lst, {k, len, k}]; i++];
Select[lst, PalindromeQ] (* Jean-François Alcover, Sep 01 2022, after Robert G. Wilson v in A045954 *)

Extensions

More terms from David W. Wilson