cp's OEIS Frontend

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.

A367707 Number of degree 6 vertices in the n-Menger sponge graph.

This page as a plain text file.
%I A367707 #16 Nov 29 2023 06:59:45
%S A367707 0,8,456,14312,338376,7218536,148082760,2991665384,60074332872,
%T A367707 1203417692264,24083810625864,481799892270056,9636987359949768,
%U A367707 192747663544965992,3855016602355831368,77100838700834961128,1542020827252644619464,30840448970959051746920,616809238826486098348872
%N A367707 Number of degree 6 vertices in the n-Menger sponge graph.
%C A367707 The level 0 Menger sponge graph is a single vertex.  The level n Menger sponge graph is formed from 20 copies of level n-1 in the shape of a cube with middle faces removed by joining boundary vertices between adjacent copies.
%H A367707 Allan Bickle, <a href="https://allanbickle.files.wordpress.com/2016/05/mengerspongedegree.pdf">Degrees of Menger and Sierpinski Graphs</a>, Congr. Num. 227 (2016) 197-208.
%H A367707 Allan Bickle, <a href="https://allanbickle.files.wordpress.com/2016/05/mengerspongeshort.pdf">MegaMenger Graphs</a>, The College Mathematics Journal, 49 1 (2018) 20-26.
%H A367707 <a href="/index/Rec#order_04">Index entries for linear recurrences with constant coefficients</a>, signature (32,-275,724,-480).
%F A367707 a(n) = (2/17)*20^n - (6/5)*8^n + (432/85)*3^n - 8.
%F A367707 a(n) = 20*a(n-1) + (9/5)*8^n - (144/5)*3^n + 152.
%F A367707 a(n) = 20^n - A367700(n) - A367701(n) - A367702(n) - A367706(n).
%F A367707 6*a(n) = 2*A291066(n) - 2*A367700(n) - 3*A367701(n) - 4*A365602(n) - 5*A367706(n).
%F A367707 G.f.: 8*x^2*(1 + 25*x + 240*x^2)/((1 - x)*(1 - 3*x)*(1 - 8*x)*(1 - 20*x)). - _Stefano Spezia_, Nov 28 2023
%e A367707 The level 1 Menger sponge graph is a cube with each edge subdivided, which has 12 degree 2 vertices and 8 degree 3 vertices.  Thus a(1) = 0.
%t A367707 LinearRecurrence[{32,-275,724,-480},{0,8,456,14312},25] (* _Paolo Xausa_, Nov 29 2023 *)
%o A367707 (Python)
%o A367707 def A367707(n): return ((5**(n+1)<<(n<<1)+1)-(51<<(3*n+1))+(3**(n+3)<<4))//85-8 # _Chai Wah Wu_, Nov 28 2023
%Y A367707 Cf. A009964 (number of vertices), A291066 (number of edges).
%Y A367707 Cf. A359452, A359453 (numbers of corner and non-corner vertices).
%Y A367707 Cf. A291066, A083233, A332705 (surface area).
%Y A367707 Cf. A367700, A367701, A367702, A367706, A367707 (degrees 2 through 6).
%Y A367707 Cf. A001018, A271939, A365606, A365607, A365608 (Sierpinski carpet graphs).
%K A367707 nonn,easy
%O A367707 1,2
%A A367707 _Allan Bickle_, Nov 27 2023