|
|
A073069
|
|
Indices of primes with non-distinct digits.
|
|
2
|
|
|
5, 26, 30, 32, 36, 42, 43, 46, 47, 48, 49, 50, 51, 59, 64, 65, 67, 68, 71, 74, 76, 84, 86, 87, 95, 102, 106, 109, 121, 123, 129, 130, 134, 137, 138, 139, 141, 151, 152, 153, 154, 156, 157, 158, 165, 167, 168, 169, 170, 171, 172, 173, 174, 177, 178, 182, 185, 186
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,base,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|