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.

A356663 Number of ways to create an angle excess of n degrees using 3 distinct regular polygons with integral internal angles.

This page as a plain text file.
%I A356663 #15 Oct 02 2022 00:43:30
%S A356663 0,1,3,1,3,5,1,3,4,5,2,7,2,5,6,4,2,6,2,4,5,4,2,5,4,4,6,5,2,7,2,5,6,4,
%T A356663 6,7,4,6,9,7,5,9,6,9,9,8,6,10,6,7,8,6,6,8,6,5,7,6,4,10,3,7,7,7,7,10,6,
%U A356663 6,10,9,7,9,6,9,11,10,7,10
%N A356663 Number of ways to create an angle excess of n degrees using 3 distinct regular polygons with integral internal angles.
%C A356663 a(n) is the number of positive integer triples (a, b, c) (not including permutations) and with a, b, c distinct that satisfy n+360 = (a-2)*180/a + (b-2)*180/b + (c-2)*180/c.
%C A356663 For n >= 175, a(n) = 0. This can be proved. The maximum sum of 3 integral internal angle is of a 360-gon, a 180-gon and a 120-gon with internal angles 179, 178 and 177 degrees respectively. Therefore 179+178+177-360 = 174 degrees is the maximum possible angle excess.
%e A356663 For n = 1, there are no possible ways to create an angle excess of 1 degree therefore a(1) = 0.
%e A356663 For n = 3, there are 3 possible ways to create an angle excess of 3 degrees. (3-gon, 8-gon, 30-gon), (4-gon, 5-gon, 24-gon), (5-gon, 6-gon, 8-gon).
%o A356663 (Python)
%o A356663 import itertools
%o A356663 def subs(l):
%o A356663     res = []
%o A356663     for combo in itertools.combinations(l, 3):
%o A356663       res.append(list(combo))
%o A356663     return res
%o A356663 l = [3, 4, 5, 6, 8, 9, 10, 12, 15, 18, 20, 24, 30, 36, 40, 45, 60, 72, 90, 120, 180, 360] # Number of sides of polygons with an integral internal angle
%o A356663 for n in range(1, 200):
%o A356663   k = 0
%o A356663   for i in subs(l):
%o A356663     if n + 360 == (i[0] - 2)*180/i[0] + (i[1] - 2)*180/i[1] + (i[2] - 2)*180/i[2]:
%o A356663       k += 1
%o A356663   print(k)
%Y A356663 Cf. A356444 (where polygons do not have to be distinct).
%K A356663 nonn
%O A356663 1,3
%A A356663 _Joseph C. Y. Wong_, Aug 21 2022