This site is supported by donations to The OEIS Foundation.

Annual Appeal: Today, Nov 11 2014, is the 4th anniversary of the launch of the new OEIS web site. 70,000 sequences have been added in these four years, all edited by volunteers. Please make a donation (tax deductible in the US) to help keep the OEIS running.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A140666 A triangle of coefficients of the difference of prime cyclotomic doubled polynomials: p(x,n)=(c(x,Prime[n])-c(x,2*Prime[n]))/x. 0
 1, -1, 2, 2, 0, 2, 2, 0, 2, 0, 2, 2, 0, 2, 0, 2, 0, 2, 0, 2, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,3 COMMENTS Row sums are: {0, 2, 4, 6, 10, 12, 16, 18, 22, 28, ...} The factor x is used instead of 2x to get an integer n=1 term. p(x,n)/2 are related to the double product:two primes n,m such that Cyclotomic[Prime[n], x]* Cyclotomic[2*Prime[n]=(Cyclotomic[Prime[m], x] - Cyclotomic[2*Prime[m], x])/(2*x) LINKS FORMULA c(x,n)=CyclotomicPolynomial; c(x,Prime[n])=(x^Prime[n]-1)/(x-1); p(x,n)=(c(x,Prime[n])-c(x,2*Prime[n]))/x; a(n,m)=Coefficiencts(p(x,n)) EXAMPLE {1, -1}, {2}, {2, 0, 2}, {2, 0, 2, 0, 2}, {2, 0, 2, 0, 2, 0, 2, 0, 2}, {2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2}, {2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2}, {2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2}, {2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2}, {2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2, 0, 2} MATHEMATICA Clear[p, x, n] p[x_, n_] = (Cyclotomic[Prime[n], x] - Cyclotomic[2*Prime[n], x])/x; Table[ExpandAll[p[x, n]], {n, 1, 10}]; a = Table[CoefficientList[p[x, n], x], {n, 1, 10}]; Flatten[a] CROSSREFS Sequence in context: A229723 A215879 A114700 * A202145 A130772 A109265 Adjacent sequences:  A140663 A140664 A140665 * A140667 A140668 A140669 KEYWORD tabf,uned,sign AUTHOR Roger L. Bagula and Gary W. Adamson, Jul 11 2008 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .

Last modified December 21 13:36 EST 2014. Contains 252321 sequences.