A029743 -id:A029743 - cp's OEIS frontend

A259188 Primes p such that p, p^2 and p^3 are distinct-digit numbers.

2, 3, 5, 13, 17, 19, 29, 59, 73

Offset: 1

Zak Seidov, Jun 20 2015

Subsequence of A259187. Cf. A029743.

Select[Prime[Range[50]],Max[Flatten[DigitCount/@{#,#^2,#^3}]]<2&] (* Harvey P. Dale, Aug 20 2019 *)

A323579 Primes formed by using the four terminal digits of multidigit primes and whose digits are distinct, i.e., consisting of only digits 1, 3, 7, 9.

Original entry on oeis.org

3, 7, 13, 17, 19, 31, 37, 71, 73, 79, 97, 137, 139, 173, 179, 193, 197, 317, 379, 397, 719, 739, 937, 971, 1973, 3719, 3917, 7193, 9137, 9173, 9371

Offset: 1

Bernard Schott, Jan 24 2019

There are only 31 terms in this sequence, which is a finite subsequence of A091633 and of A155045.

719 is also the third factorial prime belonging to A055490.

			1973 and 9371 are respectively the smallest and the largest primes formed with the four digits that can end multidigit primes.

Chris K. Caldwell and G. L. Honaker, Jr., 9371, Prime Curios!

Subsequence of A091633 and hence of A030096.

Cf. A029743 (with distinct digits), A124674 (with distinct prime digits), A155024 (with distinct nonprime digits but with 0), A155045 (with distinct odd digits), A323387 (with distinct square digits), A323391 (with distinct nonprime digits), A323578 (with distinct digits for which parity of digits alternates).

With[{w = Select[Range@ 10, GCD[#, 10] == 1 &]}, Select[FromDigits /@ Permutations[w, Length@ w], PrimeQ]] (* Michael De Vlieger, Feb 03 2019 *)
Select[FromDigits/@Flatten[Permutations/@Subsets[{1,3,7,9}],1],PrimeQ]//Union (* Harvey P. Dale, Apr 20 2025 *)

cp's OEIS Frontend

A259188 Primes p such that p, p^2 and p^3 are distinct-digit numbers.

Views

Author

Keywords

Crossrefs

Programs

Mathematica