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

A199325 Primes having only {0, 1, 5} as digits.

Original entry on oeis.org

5, 11, 101, 151, 1051, 1151, 1511, 5011, 5051, 5101, 5501, 10111, 10151, 10501, 11551, 15101, 15511, 15551, 50051, 50101, 50111, 50551, 51001, 51151, 51511, 51551, 55001, 55051, 55501, 55511, 100151, 100501, 100511, 101051, 101111, 101501, 110051, 110501, 115001, 115151, 150001, 150011, 150151, 150551
Offset: 1

Views

Author

M. F. Hasler, Nov 05 2011

Keywords

Links

Crossrefs

Cf. A020449 - A020472, A199326 - A199329, A061247, A199340 - A199349.

Programs

  • Magma
    [p: p in PrimesUpTo(160000) | Set(Intseq(p)) subset [0, 1, 5]]; // Vincenzo Librandi, Apr 22 2014
  • Maple
    N:= 10000: # to get the first N terms
count:= 0:
allowed:= {0,1,5}:
nallowed:= nops(allowed):
subst:= seq(i=allowed[i+1],i=0..nallowed-1):
for d from 0 while count < N do
  for x1 from 1 to nallowed-1 while count < N do
    for t from 0 to nallowed^d-1 while count < N do
      L:= subs(subst,convert(x1*nallowed^d+t,base,nallowed));
      X:= add(L[i]*10^(i-1),i=1..d+1);
      if isprime(X) then
          count:= count+1;
          A[count]:= X;
      fi
od od od:
seq(A[n],n=1..N); # Robert Israel, Apr 20 2014
  • Mathematica
    Select[FromDigits/@Tuples[{0,1,5},6],PrimeQ] (* Harvey P. Dale, Jul 23 2021 *)
  • PARI
    L=[0,1,5];for(d=1,6,u=vector(d,i,10^(d-i))~;forvec(v=vector(d,i,[1+(i==1 & !L[1]),#L]),ispseudoprime(t=vector(d,i,L[v[i]])*u)&print1(t",")))  /* see A199327 for a function a(n) */

A386019 Primes having only {0, 1, 2, 6} as digits.

Original entry on oeis.org

2, 11, 61, 101, 211, 601, 661, 1021, 1061, 1201, 1601, 1621, 2011, 2111, 2161, 2221, 2621, 6011, 6101, 6121, 6211, 6221, 6661, 10061, 10111, 10211, 10601, 11161, 11261, 11621, 12011, 12101, 12161, 12211, 12601, 12611, 16001, 16061, 16111, 16661, 20011, 20021
Offset: 1

Views

Author

Jason Bard, Jul 14 2025

Keywords

Links

Crossrefs

Supersequence of A036953, A199326, A285774.
Cf. A000040, A030430, A385776.

Programs

  • Magma
    [p: p in PrimesUpTo(10^6) | Set(Intseq(p)) subset [0, 1, 2, 6]];
  • Mathematica
    Select[FromDigits /@ Tuples[{0, 1, 2, 6}, n], PrimeQ]
  • PARI
    primes_with(, 1, [0, 1, 2, 6]) \\ uses function in A385776
  • Python
    print(list(islice(primes_with("0126"), 41))) # uses function/imports in A385776

A386028 Primes having only {0, 1, 4, 6} as digits.

Original entry on oeis.org

11, 41, 61, 101, 401, 461, 601, 641, 661, 1061, 1601, 4001, 4111, 4441, 6011, 6101, 6661, 10061, 10111, 10141, 10601, 11161, 11411, 14011, 14401, 14411, 14461, 16001, 16061, 16111, 16141, 16411, 16661, 40111, 41011, 41141, 41161, 41411, 41611, 41641, 44041, 44101
Offset: 1

Views

Author

Jason Bard, Jul 14 2025

Keywords

Links

Crossrefs

Subsequence of A030430.
Supersequence of A199326, A260266, A260269.
Cf. A000040, A385776.

Programs

  • Magma
    [p: p in PrimesUpTo(10^6) | Set(Intseq(p)) subset [0, 1, 4, 6]];
  • Mathematica
    Select[FromDigits /@ Tuples[{0, 1, 4, 6}, n], PrimeQ]
  • PARI
    primes_with(, 1, [0, 1, 4, 6]) \\ uses function in A385776
  • Python
    print(list(islice(primes_with("0146"), 41))) # uses function/imports in A385776

A386031 Primes having only {0, 1, 5, 6} as digits.

Original entry on oeis.org

5, 11, 61, 101, 151, 601, 661, 1051, 1061, 1151, 1511, 1601, 5011, 5051, 5101, 5501, 5651, 6011, 6101, 6151, 6551, 6661, 10061, 10111, 10151, 10501, 10601, 10651, 11161, 11551, 15061, 15101, 15161, 15511, 15551, 15601, 15661, 16001, 16061, 16111, 16561, 16651
Offset: 1

Views

Author

Jason Bard, Jul 14 2025

Keywords

Comments

Primes with decimal digits only in the set {0,1} mod 5.

Links

Crossrefs

Supersequence of A199325, A199326, A385779.
Cf. A000040, A030430, A385776.

Programs

  • Magma
    [p: p in PrimesUpTo(10^6) | Set(Intseq(p)) subset [0, 1, 5, 6]];
  • Mathematica
    Select[FromDigits/@Tuples[{0,1,5,6},5],PrimeQ]
  • PARI
    primes_with(, 1, [0, 1, 5, 6]) \\ uses function in A385776
  • Python
    print(list(islice(primes_with("0156"), 41))) # uses function/imports in A385776

Extensions

Mathematica program corrected by Harvey P. Dale, Aug 27 2025

A386035 Primes having only {0, 1, 6, 7} as digits.

Original entry on oeis.org

7, 11, 17, 61, 67, 71, 101, 107, 167, 601, 607, 617, 661, 677, 701, 761, 1061, 1117, 1171, 1601, 1607, 1667, 1777, 6007, 6011, 6067, 6101, 6607, 6661, 6701, 6761, 7001, 7177, 7607, 7717, 10007, 10061, 10067, 10111, 10177, 10601, 10607, 10667, 10711, 10771, 11071
Offset: 1

Views

Author

Jason Bard, Jul 14 2025

Keywords

Comments

Primes with decimal digits only in the set {0,1} mod 6.

Links

Crossrefs

Supersequence of A199325, A199326, A260891.
Cf. A000040, A385776.

Programs

  • Magma
    [p: p in PrimesUpTo(10^6) | Set(Intseq(p)) subset [0, 1, 6, 7]];
  • Mathematica
    Select[FromDigits /@ Tuples[{0, 1, 6, 7}, n], PrimeQ]
  • PARI
    primes_with(, 1, [0, 1, 6, 7]) \\ uses function in A385776
  • Python
    print(list(islice(primes_with("0167"), 41))) # uses function/imports in A385776

A386036 Primes having only {0, 1, 6, 8} as digits.

Original entry on oeis.org

11, 61, 101, 181, 601, 661, 811, 881, 1061, 1181, 1601, 1801, 1811, 1861, 6011, 6101, 6661, 8011, 8081, 8101, 8111, 8161, 8681, 8861, 10061, 10111, 10181, 10601, 10861, 11161, 11681, 11801, 16001, 16061, 16111, 16661, 16811, 18061, 18181, 18661, 60101, 60161
Offset: 1

Views

Author

Jason Bard, Jul 14 2025

Keywords

Links

Crossrefs

Subsequence of A030430.
Supersequence of A061247, A199326, A385782.
Cf. A000040, A385776.

Programs

  • Magma
    [p: p in PrimesUpTo(10^6) | Set(Intseq(p)) subset [0, 1, 6, 8]];
  • Mathematica
    Select[FromDigits /@ Tuples[{0, 1, 6, 8}, n], PrimeQ]
  • PARI
    primes_with(, 1, [0, 1, 6, 8]) \\ uses function in A385776
  • Python
    print(list(islice(primes_with("0168"), 41))) # uses function/imports in A385776

A386037 Primes having only {0, 1, 6, 9} as digits.

Original entry on oeis.org

11, 19, 61, 101, 109, 191, 199, 601, 619, 661, 691, 911, 919, 991, 1009, 1019, 1061, 1069, 1091, 1109, 1601, 1609, 1619, 1669, 1699, 1901, 1999, 6011, 6091, 6101, 6199, 6619, 6661, 6691, 6911, 6961, 6991, 9001, 9011, 9091, 9109, 9161, 9199, 9601, 9619, 9661, 9901
Offset: 1

Views

Author

Jason Bard, Jul 15 2025

Keywords

Links

Crossrefs

Supersequence of A199326, A199329, A363023.
Cf. A000040, A385776.

Programs

  • Magma
    [p: p in PrimesUpTo(10^6) | Set(Intseq(p)) subset [0, 1, 6, 9]];
  • Maple
    f:= n-> (l-> add([0, 1, 6, 9][l[j]+1]*10^(j-1), j=1..nops(l)))(convert(n, base, 4)):
select(isprime, [seq(f(i), i=0..250)])[];  # Alois P. Heinz, Jul 15 2025
  • Mathematica
    Select[FromDigits /@ Tuples[{0, 1, 6, 9}, n], PrimeQ]
  • PARI
    primes_with(, 1, [0, 1, 6, 9]) \\ uses function in A385776
  • Python
    print(list(islice(primes_with("0169"), 41))) # uses function/imports in A385776
Showing 1-7 of 7 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.