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

A235159 Primes which have one or more occurrences of exactly seven different digits.

Original entry on oeis.org

1023467, 1023487, 1023697, 1023769, 1023857, 1023947, 1024357, 1024379, 1024579, 1024589, 1024693, 1024697, 1024783, 1024853, 1024957, 1024963, 1024987, 1025347, 1025483, 1025693, 1025749, 1025789, 1025839, 1025873, 1025897, 1026359, 1026439, 1026457
Offset: 1

Views

Author

Colin Barker, Jan 04 2014

Keywords

Comments

The first term having a repeated digit is 10023649.

Links

Crossrefs

Cf. A074667, A235154-A235158, A235160, A235161.

Programs

  • Mathematica
    Select[Prime[Range[PrimePi[102*10^4],PrimePi[103*10^4]]],Count[ DigitCount[ #],0] ==3&] (* Harvey P. Dale, Mar 21 2018 *)
  • PARI
    s=[]; forprime(n=1000000, 1030000, if(#vecsort(eval(Vec(Str(n))),,8)==7, s=concat(s, n))); s

A255596 Distinct-digit primes that are the concatenation of m and prime(m) for some number m.

Original entry on oeis.org

23, 47, 613, 1237, 1759, 27103, 35149, 45197, 57269, 58271, 61283, 85439, 93487, 145829, 147853, 2371489, 3152087, 3902687, 4062791, 5614073, 5914327, 7405639, 8356421
Offset: 1

Views

Author

Zak Seidov, Mar 25 2015

Keywords

Examples

			The last term is a(23) = 8356421 (prime) because all 7 digits are different and m=835 with 6421=prime(m).

Crossrefs

Cf. A073643, A074665, A074667, A074669, A074671, A074673, A074675, A160402, A256339.

Programs

  • Mathematica
    Select[FromDigits[IntegerDigits@ #~Join~IntegerDigits[Prime@ #]] & /@
Range@ 1200, PrimeQ@ # && Max@ DigitCount@ # == 1 &] (* Michael De Vlieger, Mar 25 2015 *)

A256339 Distinct-digit primes that are concatenation of prime(m) and m for some m.

Original entry on oeis.org

53, 239, 6719, 7321, 4073561, 6257813, 6521843, 85271063
Offset: 1

Views

Author

Zak Seidov, Mar 25 2015

Keywords

Comments

The last term is a(8) = 85271063 (prime) because all 8 digits are different and m=1063 with 8527=prime(m).

Crossrefs

Subsequence of A029743 (distinct-digit primes).
Cf. A073643, A074665, A074667, A074669, A074671, A074673, A074675, A160402.

Programs

  • Mathematica
    Select[FromDigits[IntegerDigits[Prime@ #]~Join~IntegerDigits@ #] & /@
Range@ 1200, PrimeQ@ # && Max@ DigitCount@ # == 1 &] (* Michael De Vlieger, Mar 25 2015 *)
Previous Showing 11-13 of 13 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.