Factorising polynomials
- To: mathgroup at smc.vnet.net
- Subject: [mg63970] Factorising polynomials
- From: "Tony King" <mathstutoring at ntlworld.com>
- Date: Wed, 25 Jan 2006 08:46:00 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
I am trying to find the number of irreducible polynomials over the integers in the factorisation of x^n+1 I used the following code data = Factor[x^# + 1] & /@ Range[6] Followed by Table[Length[data[[k]]], {k, 1, 6}] And Mathematica returned {2,2,2,2,2,2}, one assumes because it was counting terms such as 1+x as 2 terms. However, when the number of factors exceeds 1, Mathematica returns them as a list and counts them correctly. The output that I was looking for should have been {1,1,2,1,2,2}. Does anyone have any ideas how I might modify the above code so that it returns the correct number of terms Many thanks Tony
- Follow-Ups:
- Re: Factorising polynomials
- From: Daniel Lichtblau <danl@wolfram.com>
- Re: Factorising polynomials
- From: gardyloo <gardyloo@mail.wsu.edu>
- Re: Factorising polynomials
- From: Andrzej Kozlowski <akoz@mimuw.edu.pl>
- Re: Factorising polynomials
- From: Sseziwa Mukasa <mukasa@jeol.com>
- Re: Factorising polynomials