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.
%I A228437 #18 Jan 17 2017 19:10:37 %S A228437 1,24,12,8,6,24,4,24,3,8,12,24,2,24,12,8,3,24,4,24,6,8,12,24,1,24,12, %T A228437 8,6,24,4,24,3,8,12,24,2,24,12,8,3,24,4,24,6,8,12,24,1,24,12,8,6,24,4, %U A228437 24,3,8,12,24,2,24,12,8,3,24,4,24,6,8,12,24,1 %N A228437 Denominator of n/24. %C A228437 Periodic of period length 24. %F A228437 G.f.: ( -1 -24*x -12*x^2 -8*x^3 -6*x^4 -24*x^5 -4*x^6 -24*x^7 -3*x^8 -8*x^9 -12*x^10 -24*x^11 -2*x^12 -24*x^13 -12*x^14 -8*x^15 -3*x^16 -24*x^17 -4*x^18 -24*x^19 -6*x^20 -8*x^21 -12*x^22 -24*x^23 ) / ( (x-1)*(1+x+x^2)*(1+x)*(1-x+x^2)*(1+x^2)*(x^4-x^2+1)*(1+x^4)*(x^8-x^4+1) ). - _R. J. Mathar_, Dec 18 2013 %p A228437 A228437 := proc(n) %p A228437 denom(n/24) ; %p A228437 end proc: # _R. J. Mathar_, Dec 18 2013 %t A228437 Denominator[Range[0,80]/24] (* or *) PadRight[{},80,{1,24,12,8,6,24,4,24,3,8,12,24,2,24,12,8,3,24,4,24,6,8,12,24}] (* _Harvey P. Dale_, Jan 17 2017 *) %K A228437 nonn,easy,frac %O A228437 0,2 %A A228437 _Jon Hearn_, Nov 10 2013