|
| |
|
|
A059736
|
|
A class of polytopal spheres.
|
|
1
| |
|
|
0, 0, 1, 0, 1, 1, 4, 6, 16, 25, 52, 89, 175, 308, 593, 1066, 2031, 3743, 7124, 13330, 25445, 48134, 92160, 175743, 337541, 647269, 1246802, 2400776, 4636319, 8955984, 17334720, 33570730, 65107971, 126355239, 245492141, 477284073
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,7
|
|
|
LINKS
| V. A. Liskovets, Some easily derivable sequences, J. Integer Sequences, 3 (2000), #00.2.2.
|
|
|
FORMULA
| A007147(n) - [n^2/12] - 1.
|
|
|
MAPLE
| A016116 := n->2^floor(n/2):with(numtheory): A000016 := proc(n) local d, t1: if n = 0 then RETURN(1) else t1 := 0; for d from 1 to n do if n mod d = 0 and d mod 2 = 1 then t1 := t1+phi(d)*2^(n/ d)/(2*n); fi; od; RETURN(t1); fi; end: A007147 := n->1/2*(A016116(n-1)+A000016(n)): A059736 := n->A007147(n) - floor(n^2/12) - 1: for j from 1 to 100 do printf(`%d, `, A059736(j)) od:
|
|
|
CROSSREFS
| Sequence in context: A133572 A121852 A122537 * A102731 A007179 A112576
Adjacent sequences: A059733 A059734 A059735 * A059737 A059738 A059739
|
|
|
KEYWORD
| nonn,easy
|
|
|
AUTHOR
| N. J. A. Sloane (njas(AT)research.att.com), Feb 09 2001
|
|
|
EXTENSIONS
| More terms from James A. Sellers (sellersj(AT)math.psu.edu), Feb 20 2001
|
| |
|
|
