A092832 Prime Motzkin numbers (see A001006).
2, 127, 15511, 953467954114363
Offset: 1
Links
- Joel A. Henningsen, Sequences Modulo Primes and Finite State Automata, Master's Thesis, University of South Alabama (2019).
- Eric Weisstein's World of Mathematics, Motzkin Number
Programs
-
Mathematica
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 (* Vladimir Joseph Stephan Orlovsky, Aug 21 2008 *)