cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-4 of 4 results.

A085031 Number of prime factors of cyclotomic(n,6), which is A019324(n), the value of the n-th cyclotomic polynomial evaluated at x=6.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 1, 1, 2, 2, 2, 2, 2, 3, 2, 2, 4, 1, 2, 2, 1, 1, 4, 1, 3, 3, 2, 2, 1, 1, 2, 3, 2, 2, 3, 3, 5, 2, 2, 2, 2, 1, 4, 3, 3, 2, 3, 2, 3, 1, 3, 3, 3, 2, 2, 4, 3, 3, 3, 4, 3, 1, 4, 3, 4, 3, 2, 2, 2, 5, 1, 3, 4, 3, 3, 2, 2, 4, 3, 3, 2, 3, 7, 2, 3, 1, 4, 2, 3, 1, 2
Offset: 1

Views

Author

T. D. Noe, Jun 19 2003

Keywords

Comments

The Mobius transform of this sequence yields A057955, number of prime factors of 6^n-1.

References

Crossrefs

omega(Phi(n,x)): A085021 (x=2), A085028 (x=3), A085029 (x=4), A085030 (x=5), this sequence (x=6), A085032 (x=7), A085033 (x=8), A085034 (x=9), A085035 (x=10).

Programs

  • Mathematica
    Table[Plus@@Transpose[FactorInteger[Cyclotomic[n, 6]]][[2]], {n, 1, 100}]

A138936 Indices n such that A019324(k)=Phi[k](6) is prime, where Phi is a cyclotomic polynomial.

Original entry on oeis.org

1, 2, 3, 4, 6, 7, 8, 18, 21, 22, 24, 29, 30, 42, 50, 62, 71, 86, 90, 94, 118, 124, 127, 144, 154, 192, 214, 271, 354, 360, 411, 480, 509, 558, 575, 663, 764, 814, 825, 874, 1028, 1049, 1050, 1102, 1113, 1131, 1158, 1376, 1464, 1468, 1535, 1622, 1782, 1834
Offset: 1

Views

Author

M. F. Hasler, Apr 03 2008

Keywords

Crossrefs

Programs

  • Mathematica
    Select[Range[1000], PrimeQ[Cyclotomic[#, 6]] &]
  • PARI
    for( i=1,999, ispseudoprime( polcyclo(i,6)) && print1( i",")) /* use ...subst(polcyclo(i),x,6)... in PARI < 2.4.2 */

Extensions

a(41)-a(54) from Robert Price, Apr 16 2012

A019325 Cyclotomic polynomials at x=7.

Original entry on oeis.org

7, 6, 8, 57, 50, 2801, 43, 137257, 2402, 117993, 2101, 329554457, 2353, 16148168401, 102943, 4956001, 5764802, 38771752331201, 117307, 1899815864228857, 5649505, 11898664849, 247165843, 4561457890013486057, 5762401, 79797014141614001, 12111126301, 1628413638264057
Offset: 0

Views

Author

Keywords

Comments

Sequence has a(0) = x; see comments in A020501.

Crossrefs

Programs

  • Maple
    with(numtheory,cyclotomic); f := n->subs(x=7,cyclotomic(n,x)); seq(f(i),i=0..64);
  • Mathematica
    Join[{7}, Cyclotomic[Range[50], 7]] (* Paolo Xausa, Feb 26 2024 *)
  • PARI
    a(n) = if(n==0, 7, polcyclo(n, 7)); \\ Michel Marcus, Dec 16 2017

Extensions

More terms from Michel Marcus, Dec 17 2017

A253240 Square array read by antidiagonals: T(m, n) = Phi_m(n), the m-th cyclotomic polynomial at x=n.

Original entry on oeis.org

1, 1, -1, 1, 0, 1, 1, 1, 2, 1, 1, 2, 3, 3, 1, 1, 3, 4, 7, 2, 1, 1, 4, 5, 13, 5, 5, 1, 1, 5, 6, 21, 10, 31, 1, 1, 1, 6, 7, 31, 17, 121, 3, 7, 1, 1, 7, 8, 43, 26, 341, 7, 127, 2, 1, 1, 8, 9, 57, 37, 781, 13, 1093, 17, 3, 1, 1, 9, 10, 73, 50, 1555, 21, 5461, 82, 73, 1, 1, 1, 10, 11, 91, 65, 2801, 31, 19531, 257, 757, 11, 11, 1, 1, 11, 12, 111, 82, 4681, 43, 55987, 626, 4161, 61, 2047, 1, 1
Offset: 0

Views

Author

Eric Chen, Apr 22 2015

Keywords

Comments

Outside of rows 0, 1, 2 and columns 0, 1, only terms of A206942 occur.
Conjecture: There are infinitely many primes in every row (except row 0) and every column (except column 0), the indices of the first prime in n-th row and n-th column are listed in A117544 and A117545. (See A206864 for all the primes apart from row 0, 1, 2 and column 0, 1.)
Another conjecture: Except row 0, 1, 2 and column 0, 1, the only perfect powers in this table are 121 (=Phi_5(3)) and 343 (=Phi_3(18)=Phi_6(19)).

Examples

			Read by antidiagonals:
m\n  0   1   2   3   4   5   6   7   8   9  10  11  12
------------------------------------------------------
0    1   1   1   1   1   1   1   1   1   1   1   1   1
1   -1   0   1   2   3   4   5   6   7   8   9  10  11
2    1   2   3   4   5   6   7   8   9  10  11  12  13
3    1   3   7  13  21  31  43  57  73  91 111 133 157
4    1   2   5  10  17  26  37  50  65  82 101 122 145
5    1   5  31 121 341 781 ... ... ... ... ... ... ...
6    1   1   3   7  13  21  31  43  57  73  91 111 133
etc.
The cyclotomic polynomials are:
n        n-th cyclotomic polynomial
0        1
1        x-1
2        x+1
3        x^2+x+1
4        x^2+1
5        x^4+x^3+x^2+x+1
6        x^2-x+1
...
		

Crossrefs

Main diagonal is A070518.
Indices of primes in n-th column for n = 1-10 are A246655, A072226, A138933, A138934, A138935, A138936, A138937, A138938, A138939, A138940.
Indices of primes in main diagonal is A070519.
Cf. A117544 (indices of first prime in n-th row), A085398 (indices of first prime in n-th row apart from column 1), A117545 (indices of first prime in n-th column).
Cf. A206942 (all terms (sorted) for rows>2 and columns>1).
Cf. A206864 (all primes (sorted) for rows>2 and columns>1).

Programs

  • Mathematica
    Table[Cyclotomic[m, k-m], {k, 0, 49}, {m, 0, k}]
  • PARI
    t1(n)=n-binomial(floor(1/2+sqrt(2+2*n)), 2)
    t2(n)=binomial(floor(3/2+sqrt(2+2*n)), 2)-(n+1)
    T(m, n) = if(m==0, 1, polcyclo(m, n))
    a(n) = T(t1(n), t2(n))

Formula

T(m, n) = Phi_m(n)
Showing 1-4 of 4 results.