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-3 of 3 results.

A160496 Half the number of terms in row n of A160495.

Original entry on oeis.org

1, 3, 3, 1, 5, 5, 2, 7, 1, 7, 1, 1, 9, 1, 11, 1, 13, 1, 1, 13, 15, 1, 15, 1, 3, 4, 17, 1, 19, 21, 1, 1, 23, 2, 6, 1, 23, 1, 1, 25, 1, 1, 27, 1, 27, 2, 1, 1, 29, 1, 33, 5, 1, 5, 33, 8, 35, 1, 35, 1, 37, 1, 1, 37, 1, 8, 1, 1, 1, 43, 1, 43, 7, 1, 1, 45, 1, 1, 47, 1, 1, 9, 49, 1, 51, 1, 53, 1, 1, 1, 55, 1
Offset: 1

Views

Author

T. D. Noe, May 15 2009

Keywords

Comments

Sequence A160497 lists the pq corresponding to the terms equal to 1.

A161504 Primes congruent to {1, 2, 10, 11, 19, 20} mod 21.

Original entry on oeis.org

2, 11, 19, 23, 31, 41, 43, 53, 61, 73, 83, 103, 107, 127, 137, 149, 157, 167, 179, 191, 199, 211, 229, 233, 241, 251, 263, 271, 283, 293, 313, 317, 337, 347, 359, 367, 379, 389, 397, 401, 409, 419, 421, 431, 439, 443, 461, 463, 503, 523, 547, 557, 569, 577, 587
Offset: 1

Views

Author

T. D. Noe, Jun 17 2009

Keywords

Comments

The cyclotomic polynomial Phi(21p,x) is flat only for p in this sequence.

Crossrefs

Programs

  • Mathematica
    Flatten[Table[Select[21*n+{-10,-2,-1,1,2,10}, PrimeQ], {n,50}]]
    Select[Prime[Range[2,250]],MemberQ[{1,2,10,11,19,20},Mod[#,21]]&] (* Harvey P. Dale, May 03 2019 *)

Formula

Extensions

a(1)=2 inserted by Georg Fischer, Jul 26 2020

A161505 Primes congruent to {1, 7, 8, 25, 26, 32} mod 33.

Original entry on oeis.org

7, 41, 59, 67, 73, 107, 131, 139, 157, 173, 191, 197, 199, 223, 239, 257, 263, 271, 331, 337, 389, 397, 421, 461, 463, 487, 503, 521, 569, 587, 593, 601, 619, 653, 659, 661, 701, 719, 727, 733, 751, 857, 859, 883, 983, 991, 997, 1031, 1049, 1063, 1097, 1123
Offset: 1

Views

Author

T. D. Noe, Jun 17 2009

Keywords

Comments

The cyclotomic polynomial Phi(33p,x) is flat only for p in this sequence.

Crossrefs

Programs

  • Mathematica
    Flatten[Table[Select[33*n+{-8,-7,-1,1,7,8}, PrimeQ], {n,50}]]

Formula

Extensions

a(1)=7 inserted by Georg Fischer, Jul 26 2020
Showing 1-3 of 3 results.