OFFSET
1,3
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
The first 10 terms are:
n a(n) A014418(a(n))
-- ---- -------------
1 0 0
2 1 1
3 3 11
4 6 101
5 8 111
6 15 1001
7 22 1111
8 43 10001
9 48 10101
10 53 10201
MATHEMATICA
c[n_] := c[n] = CatalanNumber[n]; q[n_] := Module[{s = {}, m = n, i}, While[m > 0, i = 1; While[c[i] <= m, i++]; i--; m -= c[i]; AppendTo[s, i]]; PalindromeQ @ IntegerDigits[Total[4^(s - 1)], 4]]; Select[Range[0, 2000], q]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Mar 19 2022
STATUS
approved