|
%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
|
