1,1
Table of n, a(n) for n=1..4.
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 Joseph Stephan Orlovsky, Aug 21 2008]
Cf. A001006, A092831.
Sequence in context: A062588 A125634 A075596 * A181001 A105761 A157473
Adjacent sequences: A092829 A092830 A092831 * A092833 A092834 A092835
nonn,more
Eric W. Weisstein, Mar 06, 2004
approved
