A141070 Number of primes in rows of Pascal-like triangles with index of asymmetry y = 3 and index of obliquity z = 0 or z = 1.
0, 0, 1, 1, 1, 1, 3, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 4, 3, 4, 3, 3, 3, 3, 3, 3, 5, 4, 3, 3, 4, 3, 3, 3, 3, 3, 3, 3, 3, 3, 5, 3, 4, 3, 3, 3, 5, 3, 4, 3, 3, 3, 4, 3, 3, 3, 3, 3, 3, 4, 3, 4, 4, 3, 3, 3, 3, 5, 4, 4, 3, 3, 3, 3, 4, 3, 3, 3, 3, 3, 4, 3, 3, 3, 3, 5, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 5, 3, 3, 3
Offset: 1
Examples
Pascal-like triangle with y = 3 and z = 0 (i.e, A140996) begins as follows: 1, so a(1) = 0. 1 1, so a(2) = 0. 1 2 1, so prime 2 and a(3) = 1. 1 4 2 1, so prime 2 and a(4) = 1. 1 8 4 2 1, so prime 2 and a(5) = 1. 1 16 8 4 2 1, so prime 2 and a(6) = 1. 1 31 17 8 4 2 1, so primes 2, 17, 31 and a(7) = 3. 1 60 35 17 8 4 2 1, so primes 2, 17 and a(8) = 2. 1 116 72 35 17 8 4 2 1, so primes 2, 17 and a(9) = 2. 1 224 148 72 35 17 8 4 2 1, so primes 2, 17 and a(10) = 2. 1 432 303 149 72 35 17 8 4 2 1, so primes 2, 17, 149 and a(11) = 3. ...
Links
- Juri-Stepan Gerasimov, Stepan's triangles and Pascal's triangle are connected by the recurrence relation ...
Crossrefs
Programs
-
Mathematica
nlim = 100; For[n = 0, n <= nlim, n++, G[n, 0] = 1]; For[n = 1, n <= nlim, n++, G[n, n] = 1]; For[n = 2, n <= nlim, n++, G[n, n-1] = 2]; For[n = 3, n <= nlim, n++, G[n, n-2] = 4]; For[n = 4, n <= nlim, n++, G[n, n-3] = 8]; For[n = 5, n <= nlim, n++, For[k = 1, k < n-3, k++, G[n, k] = G[n-4, k-1] + G[n-4, k] + G[n-3, k] + G[n-2, k] + G[n-1, k]]]; A141070 = {}; For[n = 0, n <= nlim, n++, c = 0; For[k = 0, k <= n, k++, If[PrimeQ[G[n, k]], c++]]; AppendTo[A141070, c]]; A141070 (* Robert Price, Jul 03 2019 *)
Extensions
Partially edited by N. J. A. Sloane, Jul 18 2008
More terms and comments edited by Petros Hadjicostas, Jun 13 2019
a(52)-a(100) from Robert Price, Jul 03 2019
Comments