%I #8 May 26 2021 08:44:00
%S 5,26,30,32,36,42,43,46,47,48,49,50,51,59,64,65,67,68,71,74,76,84,86,
%T 87,95,102,106,109,121,123,129,130,134,137,138,139,141,151,152,153,
%U 154,156,157,158,165,167,168,169,170,171,172,173,174,177,178,182,185,186
%N Indices of primes with non-distinct digits.
%t ta=IntegerDigits[Prime[Range[1000]]]; ta2=Table[Length[ta[[i]]]>Length[Union[ta[[i]]]], {i, 1000}]; Flatten[Position[ta2, True]]
%o (Python)
%o from sympy import prime, primerange
%o def ok(p): s = str(p); return len(set(s)) < len(s)
%o def aupto(limit):
%o alst = []
%o for pi, p in enumerate(primerange(1, prime(limit)+1), start = 1):
%o if ok(p): alst.append(pi)
%o return alst
%o print(aupto(186)) # _Michael S. Branicky_, May 26 2021
%Y Indices of primes in A073064. Cf. A030291.
%K easy,base,nonn
%O 1,1
%A _Zak Seidov_ Aug 24 2002