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.

Previous Showing 31-40 of 262 results. Next

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

Original entry on oeis.org

2, 11, 61, 211, 661, 1621, 2111, 2161, 2221, 2621, 6121, 6211, 6221, 6661, 11161, 11261, 11621, 12161, 12211, 12611, 16111, 16661, 21121, 21211, 21221, 21611, 21661, 22111, 22621, 26111, 26161, 26261, 61121, 61211, 61261, 66161, 66221, 111121, 111211
Offset: 1

Views

Author

Jason Bard, Jul 09 2025

Keywords

Links

Crossrefs

Supersequence of A020450, A020454.
Cf. A000040, A385776.

Programs

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

A385775 Primes having only {1, 2, 8} as digits.

Original entry on oeis.org

2, 11, 181, 211, 281, 811, 821, 881, 1181, 1811, 2111, 2221, 2281, 8111, 8221, 8821, 11821, 12211, 12281, 12821, 18121, 18181, 18211, 21121, 21211, 21221, 21821, 21881, 22111, 22811, 28111, 28181, 28211, 81181, 81281, 82811, 88211, 88811, 111121
Offset: 1

Views

Author

Jason Bard, Jul 09 2025

Keywords

Links

Crossrefs

Supersequence of A020450, A020456.
Cf. A000040, A385776.

Programs

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

A385777 Primes having only {1, 3, 6} as digits.

Original entry on oeis.org

3, 11, 13, 31, 61, 113, 131, 163, 311, 313, 331, 613, 631, 661, 1163, 1361, 1613, 1663, 3163, 3313, 3331, 3361, 3613, 3631, 6113, 6131, 6133, 6163, 6311, 6361, 6661, 11113, 11131, 11161, 11311, 11633, 13163, 13313, 13331, 13613, 13633, 16111
Offset: 1

Views

Author

Jason Bard, Jul 09 2025

Keywords

Links

Crossrefs

Supersequence of A020451, A020454.
Cf. A000040, A385776.

Programs

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

A385778 Primes having only {1, 3, 8} as digits.

Original entry on oeis.org

3, 11, 13, 31, 83, 113, 131, 181, 311, 313, 331, 383, 811, 881, 883, 1181, 1381, 1811, 1831, 3181, 3313, 3331, 3833, 3881, 8111, 8311, 8831, 11113, 11131, 11311, 11383, 11813, 11831, 11833, 13183, 13313, 13331, 13381, 13831, 13883, 18131, 18133, 18181, 18311
Offset: 1

Views

Author

Jason Bard, Jul 13 2025

Keywords

Links

Crossrefs

Supersequence of A020451, A020456, A020464.
Cf. A000040, A385776.

Programs

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

A385796 Primes having only {4, 8, 9} as digits.

Original entry on oeis.org

89, 449, 499, 4889, 4999, 8849, 8999, 9949, 44449, 48449, 48889, 48989, 49499, 49999, 84449, 84499, 88499, 89449, 89849, 89899, 89989, 94849, 94889, 94949, 94999, 98849, 98899, 98999, 99989, 444449, 448999, 449989, 484489, 484999, 489449, 489989, 494849, 494899
Offset: 1

Views

Author

Jason Bard, Jul 13 2025

Keywords

Links

Crossrefs

Subsequence of A030433.
Supersequence of A020466, A020472.
Cf. A000040, A385776.

Programs

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

A385799 Primes having only {6, 7, 8} as digits.

Original entry on oeis.org

7, 67, 677, 787, 877, 887, 7687, 7867, 7877, 8677, 8867, 8887, 66877, 67777, 67867, 68687, 68767, 68777, 76667, 76777, 77687, 77867, 78787, 78877, 78887, 86677, 86767, 87767, 87877, 87887, 88667, 88867, 666667, 667687, 667867, 668677, 668687, 668867, 677687, 677767
Offset: 1

Views

Author

Jason Bard, Jul 14 2025

Keywords

Links

Crossrefs

Subsequence of A030432, A106111.
Supersequence of A020469, A020470.
Cf. A000040, A385776.

Programs

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

A385772 Primes having only {0, 8, 9} as digits.

Original entry on oeis.org

89, 809, 8009, 8089, 8999, 80809, 80909, 80989, 89009, 89809, 89899, 89909, 89989, 90089, 90989, 98009, 98809, 98899, 98909, 98999, 99089, 99809, 99989, 800089, 800909, 800999, 809909, 880909, 888809, 888989, 889909, 890809, 890999, 898889, 899009, 900089
Offset: 1

Views

Author

Jason Bard, Jul 09 2025

Keywords

Examples

			8999 is a term because it is prime and has only {0,8,9} as digits.

Links

Crossrefs

Subsequence of A030433.
Cf. A000040, A020472, A385776.

Programs

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

A154761 Primes without {1, 9} as digits.

Original entry on oeis.org

2, 3, 5, 7, 23, 37, 43, 47, 53, 67, 73, 83, 223, 227, 233, 257, 263, 277, 283, 307, 337, 347, 353, 367, 373, 383, 433, 443, 457, 463, 467, 487, 503, 523, 547, 557, 563, 577, 587, 607, 643, 647, 653, 673, 677, 683, 727, 733, 743, 757, 773, 787, 823, 827, 853
Offset: 1

Views

Author

Juri-Stepan Gerasimov, Jan 15 2009

Keywords

Links

Crossrefs

Cf. A000040, A385776, A386320 - A386358.

Programs

  • Maple
    no19 := proc(n) local d ; for d in convert(n,base,10) do if d in {1,9} then RETURN(false) ; fi; od: RETURN(true) ; end: for n from 1 to 400 do p := ithprime(n) ; if no19(p) then printf("%d,",p) ; fi; od: # R. J. Mathar, Jan 18 2009
  • Mathematica
    Select[Prime[Range[120]], DigitCount[#, 10, 1] == 0 && DigitCount[#, 10, 9] == 0 &] (* Jason Bard, Jul 20 2025 *)
  • Python
    print(list(islice(primes_with("02345678"), 41))) # uses function/imports in A385776

Extensions

443 inserted by R. J. Mathar, Jan 18 2009

A361822 Primes without {2, 5} as digits.

Original entry on oeis.org

3, 7, 11, 13, 17, 19, 31, 37, 41, 43, 47, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 131, 137, 139, 149, 163, 167, 173, 179, 181, 191, 193, 197, 199, 307, 311, 313, 317, 331, 337, 347, 349, 367, 373, 379, 383, 389, 397, 401, 409, 419, 431, 433, 439, 443, 449, 461, 463
Offset: 1

Views

Author

Bernard Schott, Mar 26 2023

Keywords

Comments

Subsequence of primes that are in A361780.

Links

Crossrefs

Intersection of A000040 and A361780.
Cf. A079651 (primes with {1, 4, 7}), A079652 (primes with {0, 3, 6, 8, 9}).
Cf. A247052 (primes with {1, 2, 4, 5, 7}), A034470 (primes with {0, 2, 3, 5, 6, 8, 9}).
Cf. A106116, A154761, A386320 - A386358 (primes without two decimal digits).
Cf. A385776.

Programs

  • Maple
    filter:= proc(n) convert(convert(n,base,10),set) intersect {2,5} = {} end proc:
select(filter, [seq(ithprime(i),i=1..1000)]); # Robert Israel, Mar 26 2023
  • Mathematica
    Select[Prime[Range[100]], AllTrue[IntegerDigits[#], ! MemberQ[{2, 5}, #1] &] &] (* Amiram Eldar, Mar 26 2023 *)
  • Python
    print(list(islice(primes_with("01346789"), 41))) # uses function/imports in A385776. Jason Bard, Jul 20 2025

A386320 Primes without {0, 2} as digits.

Original entry on oeis.org

3, 5, 7, 11, 13, 17, 19, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 113, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 311, 313, 317, 331, 337, 347, 349, 353, 359, 367, 373, 379, 383, 389, 397, 419, 431, 433, 439
Offset: 1

Views

Author

Jason Bard, Jul 18 2025

Keywords

Links

Crossrefs

Intersection of A038604 and A038618.
Cf. A000040, A385776.

Programs

  • Magma
    [p: p in PrimesUpTo(10^6) | Set(Intseq(p)) subset [1, 3, 4, 5, 6, 7, 8, 9]];
  • Mathematica
    Select[Prime[Range[120]], DigitCount[#, 10, 0] == 0 && DigitCount[#, 10, 2] == 0 &]
  • PARI
    primes_with(, 1, [1, 3, 4, 5, 6, 7, 8, 9]) \\ uses function in A385776
  • Python
    print(list(islice(primes_with("13456789"), 41))) # uses function/imports in A385776
Previous Showing 31-40 of 262 results. Next

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

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