%I #27 Apr 07 2023 23:28:19
%S 1,1,1,1,3,1,1,4,4,1,1,5,7,5,1,1,6,10,10,6,1,1,7,14,17,14,7,1,1,8,18,
%T 27,27,18,8,1,1,9,23,39,47,39,23,9,1,1,10,28,54,75,75,54,28,10,1,1,11,
%U 33,72,115,135,115,72,33,11,1,1,12,40,95,167,222,222,167,95,40,12,1
%N The prime indices of A362034.
%F T(n,k) = A000720(A362034(n,k)).
%e Triangle begins:
%e k=0 1 2 3 4
%e n=0: 1;
%e n=1: 1, 1;
%e n=2: 1, 3, 1;
%e n=3: 1, 4, 4, 1;
%e n=4: 1, 5, 7, 5, 1;
%e n=5: ...
%t T[n_, 0] := T[n, n] = 2; T[n_, k_] := T[n, k] = NextPrime[T[n - 1, k - 1] + T[n - 1, k] - 1]; Table[PrimePi@ T[n, k], {n, 0, 11}, {k, 0, n}]] // Flatten (* _Michael De Vlieger_, Apr 06 2023 *)
%o (PARI) t(n,k) = if (n==0, 2, if (k==0, 2, if (k==n, 2, nextprime(t(n-1,k-1) + t(n-1,k))))); \\ A362034
%o T(n,k) = primepi(t(n,k)); \\ _Michel Marcus_, Apr 07 2023
%Y Cf. A000720, A362034.
%K nonn,tabl
%O 0,5
%A _Jack Braxton_, Apr 05 2023
|