login
Indices of primes with non-distinct digits.
2

%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