login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A296520 Multidigit primes in which the largest digit appears only once. 0

%I #19 Dec 17 2017 22:18:43

%S 13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,97,103,107,

%T 109,113,127,131,137,139,149,151,157,163,167,173,179,181,191,193,197,

%U 211,223,227,229,239,241,251,257,263,269,271

%N Multidigit primes in which the largest digit appears only once.

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

%t Reap[Do[p=Prime[k];id=IntegerDigits[p];If[Count[id,Max[id]]==1,Sow[p]],{k,6,100}]][[2,1]]

%t (* Second program: *)

%t Select[Prime@ Range[5, 60], Last@ Select[DigitCount[#], # > 0 &] == 1 &] (* _Michael De Vlieger_, Dec 14 2017 *)

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

%Y Cf. A028864, A052015, A106118, A106119.

%K base,nonn

%O 1,1

%A _Zak Seidov_, Dec 14 2017

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 08:01 EDT 2024. Contains 371265 sequences. (Running on oeis4.)