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

A106093 Primes with maximal digit = 9.

Original entry on oeis.org

19, 29, 59, 79, 89, 97, 109, 139, 149, 179, 191, 193, 197, 199, 229, 239, 269, 293, 349, 359, 379, 389, 397, 409, 419, 439, 449, 479, 491, 499, 509, 569, 593, 599, 619, 659, 691, 709, 719, 739, 769, 797, 809, 829, 839, 859, 907, 911, 919, 929, 937, 941, 947
Offset: 1

Views

Author

Zak Seidov and Robert G. Wilson v, May 07 2005

Keywords

Comments

Differs from A062679 in 95th term = 1693; A062679(95) = 1691 = 19*89.

Crossrefs

Programs

  • Magma
    [p: p in PrimesUpTo(2000) | 9 in Intseq(p)]; // Vincenzo Librandi, Nov 22 2015
    
  • Mathematica
    Select[Prime[Range[200]], Max[IntegerDigits[ # ]]==9&]
  • PARI
    forprime(p=2, 1e3, if(vecmax(digits(p)) == 9, print1(p, ", "))) \\ Altug Alkan, Nov 22 2015

A106100 Primes with maximal digit = 2.

Original entry on oeis.org

2, 211, 1021, 1201, 2011, 2111, 2221, 10211, 12011, 12101, 12211, 20011, 20021, 20101, 20201, 21001, 21011, 21101, 21121, 21211, 21221, 22111, 101021, 101221, 102001, 102101, 102121, 110221, 111121, 111211, 112111, 112121, 120011, 120121
Offset: 1

Views

Author

Zak Seidov, May 07 2005

Keywords

Comments

Subsequence of A036953. Prime numbers p such that A209928(p) = 2. Complement of A221698 with respect to A221697. [Jaroslav Krizek, Jan 22 2013]

Crossrefs

Programs

  • Maple
    N:= 6: # to get all terms of up to N digits
    M2:= {1};M1:= {1}:
    for d from 1 to N-1 do
      M2:= map(t -> (t, t+10^d, t+2*10^d), M2);
      M1:= map(t -> (t, t+10^d), M1);
    od:
    sort(convert({2} union select(isprime,M2 minus M1),list)); # Robert Israel, Jun 19 2016
  • Mathematica
    Select[Prime[Range[10000]], Max[IntegerDigits[ # ]]==2&]
  • PARI
    isok(p) = isprime(p) && (vecmax(digits(p)) == 2); \\ Michel Marcus, Jan 02 2019

Extensions

More terms from Rick L. Shepherd, May 22 2005

A277965 Numbers whose largest decimal digit is 3.

Original entry on oeis.org

3, 13, 23, 30, 31, 32, 33, 103, 113, 123, 130, 131, 132, 133, 203, 213, 223, 230, 231, 232, 233, 300, 301, 302, 303, 310, 311, 312, 313, 320, 321, 322, 323, 330, 331, 332, 333, 1003, 1013, 1023, 1030, 1031, 1032, 1033, 1103, 1113, 1123, 1130, 1131, 1132
Offset: 1

Views

Author

Colin Barker, Nov 06 2016

Keywords

Comments

Number of terms less than 10^n is 4^n - 3^n. - Chai Wah Wu, Nov 06 2016

Crossrefs

Cf. A005061 (4^n - 3^n).
Cf. A106099 (subsequence of primes).

Programs

  • GAP
    Filtered([1..450],n->Maximum(ListOfDigits(n))=3); # Muniru A Asiru, Mar 01 2019
  • Mathematica
    A277965Q = Max[IntegerDigits[#]] == 3 &; Select[Range[1200], A277965Q] (* JungHwan Min, Nov 06 2016 *)
  • PARI
    L=List(); for(n=1, 10000, if(vecmax(digits(n))==3, listput(L, n))); Vec(L)
    

A106097 Primes with maximal digit = 5.

Original entry on oeis.org

5, 53, 151, 251, 353, 503, 521, 523, 541, 1051, 1151, 1153, 1451, 1453, 1511, 1523, 1531, 1543, 1553, 2053, 2153, 2251, 2351, 2503, 2521, 2531, 2543, 2551, 3251, 3253, 3511, 3533, 3541
Offset: 1

Views

Author

Zak Seidov, May 07 2005

Keywords

Crossrefs

Programs

  • Mathematica
    Select[Prime[Range[500]], Max[IntegerDigits[ # ]]==5&]

A106098 Primes with maximal digit = 4.

Original entry on oeis.org

41, 43, 241, 401, 421, 431, 433, 443, 1423, 1433, 2141, 2143, 2243, 2341, 2411, 2423, 2441, 3041, 3343, 3413, 3433, 4001, 4003, 4013, 4021, 4111, 4133, 4201, 4211, 4231, 4241, 4243
Offset: 1

Views

Author

Zak Seidov, May 07 2005

Keywords

Crossrefs

Programs

  • Mathematica
    Select[Prime[Range[600]], Max[IntegerDigits[ # ]]==4&]

A212525 Primes containing a digit 3.

Original entry on oeis.org

3, 13, 23, 31, 37, 43, 53, 73, 83, 103, 113, 131, 137, 139, 163, 173, 193, 223, 233, 239, 263, 283, 293, 307, 311, 313, 317, 331, 337, 347, 349, 353, 359, 367, 373, 379, 383, 389, 397, 431, 433, 439, 443, 463, 503, 523, 563, 593, 613, 631, 643, 653, 673, 683
Offset: 1

Views

Author

Jaroslav Krizek, Jun 12 2012

Keywords

Comments

Supersequence of A045709, A106103 and A106099. Subsequence of A011533 and A062667.

Crossrefs

Cf. A045709 (primes with first digit 3), A011533 (numbers containing a digit 3), A062667 (numbers n such that every divisor of n (except 1) contains the digit 3), A106099 (primes with maximal digit = 3), A106103 (primes with minimal digit = 3), A038611 (primes not containing digit 3).

Programs

  • Mathematica
    Select[Prime[Range[200]], MemberQ[IntegerDigits[#], 3] &] (* T. D. Noe, Jun 12 2012 *)

Formula

a(n) ~ n log n. - Charles R Greathouse IV, Nov 01 2022
Showing 1-6 of 6 results.