A394914 - OEIS

%I #12 Apr 16 2026 10:47:24

%S 1,1,1,1,1,1,3,5,1,1,1,6,10,3,4,5,16,1,1,1,1,1,1,1,1,4,6,10,10,2,2,7,

%T 7,12,12,12,18,2,2,7,7,12,12,6,10,2,7,12,2,1,14,2,2,2,2,2,2,11,10,10,

%U 9,2,3,3,3,5,4,11,10,10,9,12,12,12,12,1,1,1,1,2,2,2,3,12,2,2,1,2,3,4,4,1

%N a(n) is the number of faces with the highest number of sides in Johnson solid J_n.

%H Wikipedia, <a href="https://en.wikipedia.org/wiki/List_of_Johnson_solids">List of Johnson solids</a>.

%F a(n) = A394912(n, A394913(n)).

%e a(32) = 7 because Johnson solid J_32 (pentagonal orthocupolarotunda) has 15 triangular faces, 5 square faces and 7 pentagonal faces.

%t A394914[n_] := Count[#, Max[#]] & [Map[Length, PolyhedronData["J" <> ToString[n], "FaceIndices"]]];

%t Array[A394914, 92] (* Gives the full sequence *)

%Y Right border of A394912.

%Y Cf. A306949, A394913.

%K nonn,fini,full

%O 1,7

%A _Paolo Xausa_, Apr 08 2026