cp's OEIS Frontend

A164738 Triangle read by rows. Row 0 = {2}; left half of row n+1 = row n, right half = row n reversed with each term replaced by the next prime.

%I A164738 #21 Oct 31 2023 15:42:02
%S A164738 2,2,3,2,3,5,3,2,3,5,3,5,7,5,3,2,3,5,3,5,7,5,3,5,7,11,7,5,7,5,3,2,3,5,
%T A164738 3,5,7,5,3,5,7,11,7,5,7,5,3,5,7,11,7,11,13,11,7,5,7,11,7,5,7,5,3,2,3,
%U A164738 5,3,5,7,5,3,5,7,11,7,5,7,5,3,5,7,11,7,11,13,11,7,5,7,11,7,5,7,5,3,5,7,11,7
%N A164738 Triangle read by rows. Row 0 = {2}; left half of row n+1 = row n, right half = row n reversed with each term replaced by the next prime.
%C A164738 Row n has 2^n terms.
%C A164738 Row sums = (2, 5, 13, 33, 83, 205, 495,...) = A007443, the binomial transform of the primes.
%H A164738 Alois P. Heinz, <a href="/A164738/b164738.txt">Rows n = 0..13, flattened</a>
%e A164738 The triangle begins:
%e A164738   2;
%e A164738   2, 3;
%e A164738   2, 3, 5, 3;
%e A164738   2, 3, 5, 3, 5, 7, 5, 3;
%e A164738   2, 3, 5, 3, 5, 7, 5, 3, 5, 7, 11, 7, 5, 7, 5, 3;
%e A164738   ...
%t A164738 Flatten[NestList[Join[ #, NextPrime[Reverse[ # ]]] &, {2}, 7]] (* _Zak Seidov_, Aug 24 2009 *)
%Y A164738 Cf. A000040, A007443, A088696.
%K A164738 nonn,tabf
%O A164738 0,1
%A A164738 _Gary W. Adamson_, Aug 23 2009
%E A164738 More terms from _Zak Seidov_, Aug 24 2009
%E A164738 Edited by _Zak Seidov_ and _N. J. A. Sloane_, Aug 25 2009
%E A164738 Offset 0 from _Alois P. Heinz_, Oct 31 2023