OFFSET
1,1
MATHEMATICA
ta=IntegerDigits[Prime[Range[1000]]]; ta2=Table[Length[ta[[i]]]>Length[Union[ta[[i]]]], {i, 1000}]; Flatten[Position[ta2, True]]
PROG
(Python)
from sympy import prime, primerange
def ok(p): s = str(p); return len(set(s)) < len(s)
def aupto(limit):
alst = []
for pi, p in enumerate(primerange(1, prime(limit)+1), start = 1):
if ok(p): alst.append(pi)
return alst
print(aupto(186)) # Michael S. Branicky, May 26 2021
CROSSREFS
KEYWORD
easy,base,nonn
AUTHOR
Zak Seidov Aug 24 2002
STATUS
approved