|
|
A228437
|
|
Denominator of n/24.
|
|
1
|
|
|
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, 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, 24, 3, 8, 12, 24, 2, 24, 12, 8, 3, 24, 4, 24, 6, 8, 12, 24, 1
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
Periodic of period length 24.
|
|
LINKS
|
|
|
FORMULA
|
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
|
|
MAPLE
|
denom(n/24) ;
|
|
MATHEMATICA
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy,frac
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|