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.

A116677 Numbers k such that prime(k) == 12 (mod k).

Original entry on oeis.org

1, 91, 4124467, 27067043, 27067229, 27067261, 27067523, 1208198857, 8179002137, 8179002191
Offset: 1

Views

Author

Giovanni Resta and Robert G. Wilson v, Feb 22 2006

Keywords

Crossrefs

Cf. A004648, A023143 - A023152, A116657, A116658, A116659: prime(n) == m (mod n), m=1..14.
Cf. A116678.

Programs

  • Mathematica
    NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; p = 1; Do[ If[ Mod[p = NextPrim[p], n] == 12, Print[n]], {n, 10^9}]
  • Sage
    def A116677(max) :
    terms = []
    p = 2
    for n in range(1, max+1) :
        if (p - 12) % n == 0 : terms.append(n)
        p = next_prime(p)
    return terms
# Eric M. Schmidt, Feb 05 2013

Extensions

First term inserted by Eric M. Schmidt, Feb 05 2013

A116658 Numbers k such that prime(k) == 13 (mod k).

Original entry on oeis.org

1, 2, 6, 12, 22, 40, 42, 84, 86, 90, 193, 2712, 16056, 16058, 40077, 40123, 40124, 40125, 251720, 251766, 251769, 251787, 637332, 10553432, 10553435, 10553501, 10553568, 10553817, 10553826, 27067042, 27067132, 69709722, 179993160, 465769803
Offset: 1

Views

Author

Zak Seidov, Feb 21 2006

Keywords

Comments

Starting with a(5), positions of 13 in A004648. - corrected by Eric M. Schmidt, Feb 05 2013

Crossrefs

Cf. A004648; A023143 - A023152, A116657, A116677, A116658, A116659: prime(n) == m (mod n), m=1..14.

Programs

  • Mathematica
    NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; p = 1; Do[ If[ Mod[p = NextPrim[p], n] == 13, Print[n]], {n, 10^9}] (* Robert G. Wilson v, Feb 22 2006 *)
  • Sage
    def A116658(max) :
    terms = []
    p = 2
    for n in range(1, max+1) :
        if (p - 13) % n == 0 : terms.append(n)
        p = next_prime(p)
    return terms
# Eric M. Schmidt, Feb 05 2013

Extensions

a(24)-a(34) from Robert G. Wilson v, Feb 22 2006
First four terms inserted by Eric M. Schmidt, Feb 05 2013

A116659 Numbers k such that prime(k) == 14 (mod k).

Original entry on oeis.org

1, 3, 9, 23, 81, 85, 87, 16057, 4124457, 27067011, 27067127, 1208198605, 1208198851
Offset: 1

Views

Author

Zak Seidov, Feb 21 2006

Keywords

Comments

Starting with a(4), positions of 14 in A004648. - Robert G. Wilson v, Feb 22 2006, corrected by Eric M. Schmidt, Feb 05 2013

Crossrefs

Cf. A004648; A023143 - A023152, A116657, A116677, A116658, A116659: prime(n) == m (mod n), m=1..14.

Programs

  • Mathematica
    NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; p = 1; Do[ If[ Mod[p = NextPrim[p], n] == 14, Print[n]], {n, 10^9}] (* Robert G. Wilson v *)
  • Sage
    def A116659(max) :
    terms = []
    p = 2
    for n in range(1, max+1) :
        if (p - 14) % n == 0 : terms.append(n)
        p = next_prime(p)
    return terms
# Eric M. Schmidt, Feb 05 2013

Extensions

a(9)-a(13) from Robert G. Wilson v, Feb 22 2006
First three terms inserted by Eric M. Schmidt, Feb 05 2013

A116662 Numbers k such that prime(k) == 15 (mod k).

Original entry on oeis.org

1, 2, 4, 13, 14, 41, 46, 446, 1066, 16054, 251713, 251738, 251764, 251789, 27067052, 27067124, 465769808, 465769816, 1208198606, 1208198632, 145935689368
Offset: 1

Views

Author

Zak Seidov, Feb 21 2006

Keywords

Comments

Starting with a(6), positions of 15 in A004648. - corrected by Eric M. Schmidt, Feb 05 2013

Crossrefs

Cf. A004648; A023143-A023152, A116657, A116677, A116658, A116659, prime(n) == m (mod n), m=1-10,11,12,13,14.

Programs

  • Python
    from gmpy2 import next_prime
def A116662(max) :
    terms = []
    p = 2
    for n in range(1, max+1) :
        if (p - 15) % n == 0 : terms.append(n)
        p = next_prime(p)
    return terms # Eric M. Schmidt, Feb 05 2013

Extensions

More terms from Ryan Propper, Jul 21 2006
a(21) from Donovan Johnson, Dec 07 2008
Edited by and first five terms inserted by Eric M. Schmidt, Feb 05 2013
Showing 1-4 of 4 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

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