|
%I
%S 3313,3331,32233,32323,33223,123323,132233,223133,223313,223331,
%T 231323,233231,312233,321323,323123,3344443,3434443,3443443,4434343,
%U 4443433,14334443,14443343,14443433,31434443,31443443,33434441,33555553
%N Primes p such that every decimal digit d in p appears exactly d times.
%C The largest term is the prime 99999999988888888777777766666655555444223343.
%H Giovanni Resta, <a href="/A078348/b078348.txt">Table of n, a(n) for n = 1..10000</a>
%e In the prime 3313 the digit "1" appears exactly one time and the digit "3" appears exactly three times.
%t ddp[x_]:=Select[FromDigits/@Permutations[Flatten[PadRight[{},#,#]&/@x]], PrimeQ]; Take[Flatten[ddp/@Subsets[Range[5]]]//Sort,40] (* _Harvey P. Dale_, May 13 2020 *)
%K base,easy,fini,nonn
%O 1,1
%A _Carlos Rivera_, Nov 22 2002
|
