|
Search: id:A107067
|
|
|
| A107067 |
|
Number of polynomials with coefficients in {0,1} and which divide x^n-1. |
|
+0
3
|
|
| 1, 2, 2, 4, 2, 6, 2, 8, 4, 6, 2, 17, 2, 6, 6, 16, 2, 18, 2, 17, 6, 6, 2, 48, 4, 6, 8, 17, 2, 36, 2, 32, 6, 6, 6, 69, 2, 6, 6, 47, 2, 36, 2, 17, 17, 6, 2, 136, 4, 18, 6, 17, 2, 54, 6, 47, 6, 6, 2, 176, 2, 6, 17, 64, 6, 36, 2, 17, 6, 36, 2, 257, 2, 6, 18, 17, 6, 36, 2, 131, 16, 6, 2, 177, 6, 6
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
PROGRAM
|
(PARI) for(n=1, 100, m=0; p=x^n-1; nE=numdiv(n); P=factor(p); E=P[, 2]; P=P[, 1]; forvec(v=vector(nE, i, [0, E[i]]), divp=prod(k=1, nE, P[k]^v[k]); m++; for(j=0, poldegree(divp), divpcof=polcoeff(divp, j); if(divpcof<0 || divpcof>1, m--; break))); print1(m, ", ")) - Herman Jamke (hermanjamke(AT)fastmail.fm), Nov 15 2006
|
|
CROSSREFS
|
Cf. A107336, A107748.
Sequence in context: A046523 A071364 A067824 this_sequence A046801 A137502 A143112
Adjacent sequences: A107064 A107065 A107066 this_sequence A107068 A107069 A107070
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Ralf Stephan, following a suggestion from Max Alekseyev, Jun 11 2005
|
|
EXTENSIONS
|
More terms from Herman Jamke (hermanjamke(AT)fastmail.fm), Nov 15 2006
|
|
|
Search completed in 0.002 seconds
|
