WHUPS! Obsolete even as I posted it...
Also 18:
dat = FoldList[PolyhedronFaceReflect, a4,
{3, 1, 5, 2, 1, 2, 5, 2, 3, 5, 1, 3, 2, 1, 2, 3, 2}];
Graphics3D[{dat, Red, dat[[1]]}, Boxed -> False]

14 and closer to a ring, but fails because of overlap:
dat = FoldList[PolyhedronFaceReflect, a4,
{3, 1, 5, 2, 5, 1, 3, 5, 1, 3, 2, 3, 1}];
Graphics3D[{dat, Red, dat[[1]]}, Boxed -> False]