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.

A124285 Number of integer-sided pentagons having perimeter n.

This page as a plain text file.
%I A124285 #8 Dec 26 2017 23:30:13
%S A124285 0,0,0,0,1,1,3,4,9,13,23,29,48,60,92,109,158,186,258,296,397,451,589,
%T A124285 658,841,933,1169,1283,1582,1728,2100,2275,2732,2948,3502,3756,4419,
%U A124285 4725,5511,5866,6789,7207,8283,8761,10006,10560,11990,12617,14250,14968
%N A124285 Number of integer-sided pentagons having perimeter n.
%C A124285 Rotations and reversals are counted only once. Note that this is different from A069906, which counts pentagons whose sides are nondecreasing.
%H A124285 James East, Ron Niles, <a href="https://arxiv.org/abs/1710.11245">Integer polygons of given perimeter</a>, arXiv:1710.11245 [math.CO], 2017.
%F A124285 Empirical g.f.: -x^5*(x^12 +2*x^9 +2*x^8 +2*x^7 +5*x^6 +3*x^5 +2*x^4 +2*x^3 +x^2 +x +1) / ((x -1)^5*(x +1)^4*(x^2 +1)^2*(x^4 +x^3 +x^2 +x +1)). - _Colin Barker_, Oct 27 2013
%e A124285 The three pentagons having perimeter 7 are (1,1,1,2,2), (1,1,2,1,2) and (1,1,1,1,3).
%t A124285 Needs["DiscreteMath`Combinatorica`"]; Table[s=Select[Partitions[n], Length[ # ]==5 && #[[1]]<Total[Rest[ # ]]&]; cnt=0; Do[cnt=cnt+Length[ListNecklaces[5,s[[i]],Dihedral]], {i,Length[s]}]; cnt, {n,50}]
%Y A124285 Cf. A057886 (quadrilaterals), A124286 (hexagons), A124287 (k-gons).
%K A124285 nonn
%O A124285 1,7
%A A124285 _T. D. Noe_, Oct 24 2006