%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
|