OFFSET
1,2
MATHEMATICA
a={}; kmax=40; For[k=0, k<=kmax, k++, If[First[IntegerDigits[term = Binomial[2k, k]]]==1, AppendTo[a, term]]]; a (* Stefano Spezia, Sep 06 2022 *)
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Benoit Cloitre, Feb 28 2002
EXTENSIONS
a(1) = 1 inserted by Stefano Spezia, Sep 06 2022
STATUS
approved