RosettaCodeData/Task/Motzkin-numbers/Mathematica/motzkin-numbers.math
2023-07-01 13:44:08 -04:00

1 line
99 B
Text

Table[With[{o = Hypergeometric2F1[(1 - n)/2, -n/2, 2, 4]}, {n, o, PrimeQ[o]}], {n, 0, 41}] // Grid