OFFSET
1,1
COMMENTS
EXAMPLE
E.g. 641 becomes 66666644441 which is also prime.
MATHEMATICA
Select[Prime[Range[1500]], PrimeQ[FromDigits[Flatten[Table[#, {#}]&/@ IntegerDigits[#]]]]&&DigitCount[#, 10, 0]==0&] (* Harvey P. Dale, Mar 27 2011 *)
PROG
CROSSREFS
KEYWORD
nonn,base,nice,easy
AUTHOR
G. L. Honaker, Jr., Oct 10 2000
EXTENSIONS
More terms from Patrick De Geest, Oct 15 2000.
Offset changed to 1, according to OEIS conventions, by M. F. Hasler, Jan 23 2013
STATUS
approved