A052015 -id:A052015 - cp's OEIS frontend

A382027 Primes whose decimal digits are in ascending order and also parity alternating.

2, 3, 5, 7, 23, 29, 47, 67, 89, 127, 149, 167, 347, 349, 367, 389, 569, 2347, 2389, 2789, 4567, 4789, 12347, 12569, 12589, 34589, 234589, 1234789, 1456789, 23456789

Offset: 1

Alois P. Heinz, Mar 12 2025

Intersection of A030144 and A052015.

Cf. A030141, A381158.

b:= proc(n) `if`(isprime(n), n, [][]), seq(b(10*n+j), j=irem(n, 10)+1..9, 2) end:
{seq(b(n), n=1..9)}[];

ad=Select[Prime[Range[2*10^6]],Union[IntegerDigits[#]]==IntegerDigits[#]&];fQ[n_] := Block[{m = Mod[ IntegerDigits@ n, 2]}, m == Split[m, UnsameQ][[1]]];Select[ad,fQ] (* James C. McMahon, Mar 20 2025 *)

A296520 Multidigit primes in which the largest digit appears only once.

Original entry on oeis.org

13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 211, 223, 227, 229, 239, 241, 251, 257, 263, 269, 271

Offset: 1

Zak Seidov, Dec 14 2017

			In 13 the last digit is the largest, in 131 the middle digit and in 41 the first digit.

A156666 is a subsequence (except that the single-digit primes are included).

Cf. A028864, A052015, A106118, A106119.

Reap[Do[p=Prime[k];id=IntegerDigits[p];If[Count[id,Max[id]]==1,Sow[p]],{k,6,100}]][[2,1]]
(* Second program: *)
Select[Prime@ Range[5, 60], Last@ Select[DigitCount[#], # > 0 &] == 1 &] (* Michael De Vlieger, Dec 14 2017 *)

cp's OEIS Frontend

A382027 Primes whose decimal digits are in ascending order and also parity alternating.

Views

Author

Keywords

Crossrefs

Programs

Maple

Mathematica