

A087395


Primes in which the frequency of every digit is the same and is at least 2.


0



11, 100313, 107071, 110909, 114343, 115757, 116969, 117373, 117979, 118787, 119797, 121727, 127217, 127271, 131939, 133717, 133919, 134341, 136163, 136361, 137713, 140401, 141499, 142421, 143413, 145451, 149419, 149491, 155717, 157571
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,1


LINKS

Table of n, a(n) for n=0..29.


EXAMPLE

100313 is a member in which each digit 1, 3 and 0 occur with frequency 2.


MATHEMATICA

fpQ[n_]:=Module[{dc=Union[Cases[DigitCount[n], Except[0]]]}, First[dc]>1 &&Length[dc]==1]; Select[Prime[Range[14500]], fpQ] (* Harvey P. Dale, Apr 22 2011 *)


CROSSREFS

Sequence in context: A348644 A165934 A110780 * A199169 A145571 A049193
Adjacent sequences: A087392 A087393 A087394 * A087396 A087397 A087398


KEYWORD

base,nonn


AUTHOR

Amarnath Murthy, Sep 10 2003


EXTENSIONS

Corrected and extended by David Wasserman, May 31 2005


STATUS

approved



