This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A142240 #4 Dec 02 2018 23:10:28
%S A142240 1,2,2,2,3,2,2,4,4,2,2,5,6,5,2,2,6,8,8,6,2,2,7,10,11,10,7,2,2,8,12,14,
%T A142240 14,12,8,2,2,9,14,17,18,17,14,9,2,2,10,16,20,22,22,20,16,10,2
%N A142240 A triangular sequence from the pattern in row sums of Pascal's triangle A007318, Eulerian numbers A008292 and A060187: Delta_diagonal=m; m={0,1,2,3,...k}.
%C A142240 Row sums are:
%C A142240 {1, 4, 7, 12, 20, 32, 49, 72, 102, 140}.
%C A142240 The triangle is calculated by hand.
%C A142240 Row sums are:
%C A142240 1) Pascal A007318:ratio =2: delta row zero:a(n)=2*a(n-1);a(1)=1;
%C A142240 b(n)->0
%C A142240 1,2,4,8,16,32,64,128,256,512
%C A142240 2) Eulerian numbers A008292: ratio =n: delta=1:a(n)=n*a(n-1)
%C A142240 1,2,6,24,120,720,...n!
%C A142240 b(n)->1,2,3,4,...
%C A142240 3) A060187:ratio=2*n: delta=2:a(n)=2*n*a(n-1)
%C A142240 b(n)->2,4,6,8,...
%C A142240 {1, 2, 8, 48, 384, 3840, 46080, 645120, 10321920, 185794560, 3715891200}.
%C A142240 4) hypothetical next level sums:delta=3:b(n)=b(n-1)+3;a(n)=a(n-1)*b(n);
%C A142240 b(n)->{2, 5, 8, 11, 14, 17, 20, 23, 26, 29} diagonal
%C A142240 {1, 2, 10, 80, 880, 12320, 209440, 4188800, 96342400, 2504902400, 72642169600}
%C A142240 5)hypothetical next level sums:delta=3:b(n)=b(n-1)+4;a(n)=a(n-1)*b(n);
%C A142240 b(n)->{2, 6, 10, 14, 18, 22, 26, 30, 34, 38} diagonal
%C A142240 {1, 2, 12, 120, 1680, 30240, 665280, 17297280, 518918400, 17643225600, 670442572800}
%C A142240 The conjecture that goes with this triangular sequence is that there on n levels like these for Pascal combinatorial quantum levels.
%F A142240 b(n,m)=b(n-1,m]+m; Delta_diagonal=m; m={0,1,2,3,...k}.
%e A142240 {1},
%e A142240 {2, 2},
%e A142240 {2, 3, 2},
%e A142240 {2, 4, 4, 2},
%e A142240 {2, 5, 6, 5, 2},
%e A142240 {2, 6, 8, 8, 6, 2},
%e A142240 {2, 7, 10, 11, 10, 7, 2},
%e A142240 {2, 8, 12, 14, 14, 12, 8, 2},
%e A142240 {2, 9, 14, 17, 18, 17, 14, 9, 2},
%e A142240 {2, 10, 16, 20, 22, 22, 20, 16, 10, 2}
%t A142240 a={{1},{2,2},{2,3,2},{2,4,4,2}, {2,5,6,5,2},{2,6,8,8,6,2},{2,7,10,11,10,7,2},{2,8,12,14,14, 12,8,2},{2,9,14,17,18,17,14,9,2},{2,10,16,20,22,22,20,16,10,2}} Flatten[a] Table[Apply[Plus,a[[n]]],{n,1,10}]
%Y A142240 Cf. A060187, A007318, A008292.
%K A142240 nonn,uned
%O A142240 1,2
%A A142240 _Roger L. Bagula_ and _Gary W. Adamson_, Sep 17 2008