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

A107715 Primes having only {0,1,2,3} as digits.

Original entry on oeis.org

2, 3, 11, 13, 23, 31, 101, 103, 113, 131, 211, 223, 233, 311, 313, 331, 1013, 1021, 1031, 1033, 1103, 1123, 1201, 1213, 1223, 1231, 1301, 1303, 1321, 2003, 2011, 2111, 2113, 2131, 2203, 2213, 2221, 2311, 2333, 3001, 3011, 3023, 3121, 3203, 3221, 3301, 3313
Offset: 1

Views

Author

Rick L. Shepherd, May 22 2005

Keywords

Crossrefs

Subsequence of A036956.
Cf. A036953 (primes containing digits from set {0, 1, 2}).

Programs

  • Haskell
    a107715 n = a107715_list !! (n-1)
    a107715_list = filter ((== 1) . a010051) a007090_list
    -- Reinhard Zumkeller, Aug 11 2011
    
  • Mathematica
    Select[Prime[Range[500]],Max[IntegerDigits[#]]<4&] (* Harvey P. Dale, May 09 2012 *)
    Select[FromDigits/@Tuples[{0,1,2,3},4],PrimeQ] (* Harvey P. Dale, Mar 06 2016 *)
  • Python
    from gmpy2 import digits
    from sympy import isprime
    [int(digits(n,4)) for n in range(1000) if isprime(int(digits(n,4)))] # Chai Wah Wu, Jul 31 2014
    
  • Python
    print(list(islice(primes_with("0123"), 41))) # uses function/imports in A385776. Jason Bard, Jul 18 2025

A106112 Primes with minimal digit > 4.

Original entry on oeis.org

5, 7, 59, 67, 79, 89, 97, 557, 569, 577, 587, 599, 659, 677, 757, 769, 787, 797, 857, 859, 877, 887, 967, 977, 997, 5557, 5569, 5657, 5659, 5669, 5689, 5779, 5857, 5867, 5869, 5879, 5897, 5987, 6569, 6577, 6599, 6659, 6679, 6689, 6779, 6857, 6869, 6899, 6959
Offset: 1

Views

Author

Zak Seidov, May 07 2005

Keywords

Crossrefs

Cf. A036956 (primes with maximal digit <= 4).

Programs

  • Mathematica
    Select[Prime[Range[1000]], Min[IntegerDigits[ # ]]>4&]

A386017 Primes having only {0, 1, 2, 4} as digits.

Original entry on oeis.org

2, 11, 41, 101, 211, 241, 401, 421, 1021, 1201, 2011, 2111, 2141, 2221, 2411, 2441, 4001, 4021, 4111, 4201, 4211, 4241, 4421, 4441, 10111, 10141, 10211, 11411, 12011, 12041, 12101, 12211, 12241, 12401, 12421, 14011, 14221, 14401, 14411, 20011, 20021, 20101, 20201
Offset: 1

Views

Author

Jason Bard, Jul 14 2025

Keywords

Crossrefs

Subsequence of A036956.
Supersequence of A036953, A260266, A260267.

Programs

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

A386023 Primes having only {0, 1, 3, 4} as digits.

Original entry on oeis.org

3, 11, 13, 31, 41, 43, 101, 103, 113, 131, 311, 313, 331, 401, 431, 433, 443, 1013, 1031, 1033, 1103, 1301, 1303, 1433, 3001, 3011, 3041, 3301, 3313, 3331, 3343, 3413, 3433, 4001, 4003, 4013, 4111, 4133, 4441, 10103, 10111, 10133, 10141, 10301, 10303, 10313, 10331
Offset: 1

Views

Author

Jason Bard, Jul 14 2025

Keywords

Crossrefs

Subsequence of A036956.
Supersequence of A199341, A260044, A260266.

Programs

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

A386085 Primes having only {1, 2, 3, 4} as digits.

Original entry on oeis.org

2, 3, 11, 13, 23, 31, 41, 43, 113, 131, 211, 223, 233, 241, 311, 313, 331, 421, 431, 433, 443, 1123, 1213, 1223, 1231, 1321, 1423, 1433, 2111, 2113, 2131, 2141, 2143, 2213, 2221, 2243, 2311, 2333, 2341, 2411, 2423, 2441, 3121, 3221, 3313, 3323, 3331, 3343, 3413
Offset: 1

Views

Author

Jason Bard, Jul 16 2025

Keywords

Crossrefs

Subsequence of A036956, A036958.
Supersequence of A062350, A199341, A199342, A260267.

Programs

  • Magma
    [p: p in PrimesUpTo(10^6) | Set(Intseq(p)) subset [1, 2, 3, 4]];
    
  • Mathematica
    Flatten[Table[Select[FromDigits /@ Tuples[{1, 2, 3, 4}, n], PrimeQ], {n, 7}]]
  • PARI
    primes_with(, 1, [1, 2, 3, 4]) \\ uses function in A385776
  • Python
    print(list(islice(primes_with("1234"), 41))) # uses function/imports in A385776
    
Showing 1-5 of 5 results.