|
%I #12 Jul 20 2019 12:45:53
%S 4,6,8,12,20,5,8,16,24,120,600,6,10,32,7,12,64,8,14,128,9,16,256,10,
%T 18,512,11,20,1024,12,22,2048,13,24,4096,14,26,8192,15,28,16384,16,30,
%U 32768,17,32,65536,18,34,131072,19,36,262144,20,38,524288,21,40,1048576
%N Irregular table read by rows: the n-th row lists the number of (n-1)-dimensional cells in the convex regular n-dimensional polytopes in ascending order, n >= 3.
%C Also, the n-th row lists the number of edges (i.e., 1-dimensional cells) in the convex regular n-dimensional polytopes in ascending order. - _Jianing Song_, Jun 29 2019
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/List_of_regular_polytopes_and_compounds">List of regular polytopes and compounds</a>
%F For n >= 5, the n-th row is n+1, 2n, 2^n. - _Jianing Song_, Jun 29 2019
%e From _Jianing Song_, Jun 29 2019: (Start)
%e Row 3: 4, 6, 8, 12, 20;
%e Row 4: 5, 8, 16, 24, 120, 600;
%e Row 5: 6, 10, 32;
%e Row 6: 7, 12, 64;
%e ...
%e (End)
%o (PARI) row(n) = if(n>=5, [n+1, 2*n, 2^n], if(n==3, [4, 6, 8, 12, 20], if(n==4, [5, 8, 16, 24, 120, 600])))
%o list(n) = my(v=[]); for(i=3, n, v=concat(v, row(i))); v \\ _Jianing Song_, Jun 29 2019
%Y Cf. A000079, A005843, A053016 (row 3), A063924 (row 4).
%K nonn,easy,tabf
%O 3,1
%A _Donghwi Park_, Jun 29 2019
%E Edited by _Jianing Song_, Jun 29 2019
|
