OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..1066 (terms below 10^8)
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 *)
CROSSREFS
KEYWORD
nice,nonn,base
AUTHOR
EXTENSIONS
More terms from David W. Wilson
STATUS
approved