OFFSET
1,1
MATHEMATICA
Select[Prime[Range[200]], PrimeQ[Length[Characters[IntegerString[#, "Roman"]]]]&] (* Harvey P. Dale, Mar 19 2013 *)
PROG
(PARI) Roman(n)=my(s); while(n, s+=[0, 1, 2, 3, 2, 1, 2, 3, 4, 2][n%10+1]; n\=10); s
forprime(p=2, 3999, if(isprime(Roman(p)), print1(p", "))) \\ Charles R Greathouse IV, Oct 06 2011
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Juri-Stepan Gerasimov, Sep 21 2011
STATUS
approved