|
|
A235159
|
|
Primes which have one or more occurrences of exactly seven different digits.
|
|
4
|
|
|
1023467, 1023487, 1023697, 1023769, 1023857, 1023947, 1024357, 1024379, 1024579, 1024589, 1024693, 1024697, 1024783, 1024853, 1024957, 1024963, 1024987, 1025347, 1025483, 1025693, 1025749, 1025789, 1025839, 1025873, 1025897, 1026359, 1026439, 1026457
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
The first term having a repeated digit is 10023649.
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Prime[Range[PrimePi[102*10^4], PrimePi[103*10^4]]], Count[ DigitCount[ #], 0] ==3&] (* Harvey P. Dale, Mar 21 2018 *)
|
|
PROG
|
(PARI) s=[]; forprime(n=1000000, 1030000, if(#vecsort(eval(Vec(Str(n))), , 8)==7, s=concat(s, n))); s
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|