login
Prime Motzkin numbers (see A001006).
1

%I #16 Dec 14 2019 21:34:29

%S 2,127,15511,953467954114363

%N Prime Motzkin numbers (see A001006).

%H Joel A. Henningsen, <a href="https://search.proquest.com/openview/3b3dd34fe5337b8065e60e7838387a6e">Sequences Modulo Primes and Finite State Automata</a>, Master's Thesis, University of South Alabama (2019).

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/MotzkinNumber.html">Motzkin Number</a>

%t 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 *)

%Y Cf. A001006, A092831.

%K nonn,more

%O 1,1

%A _Eric W. Weisstein_, Mar 06 2004