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

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,1

Links

Table of n, a(n) for n=1..50.

Example

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

Mathematica

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 *)

Crossrefs

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

Cf. A028864, A052015, A106118, A106119.

Sequence in context: A132077 A235154 A045921 * A334391 A334321 A379930

Adjacent sequences: A296517 A296518 A296519 * A296521 A296522 A296523

Keyword

base,nonn

Author

Zak Seidov, Dec 14 2017

Status

approved