1,1

Eric Weisstein's World of Mathematics, Motzkin Number

a[0]=1; a[n_Integer]:=a[n]=a[n-1]+Sum[a[k]*a[n-2-k], {k, 0, n-2}]; lst={}; Do[If[PrimeQ[p=a[n]], AppendTo[lst, p]], {n, 10^2}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Aug 21 2008]

Cf. A001006, A092831.

Sequence in context: A062588 A125634 A075596 this_sequence A105761 A157473 A004864

Adjacent sequences: A092829 A092830 A092831 this_sequence A092833 A092834 A092835

nonn,more

Eric Weisstein (eric(AT)weisstein.com), Mar 06, 2004