OFFSET
1,1
EXAMPLE
If prime(k=2)=3, 2=prime and 3=prime, then 2=a(1).
If prime(k=3)=5, 3=prime and 5=prime, then 3=a(2).
If prime(k=22)=79, 2=2=prime and 9>7=prime, then 22=a(3).
If prime(k=23)=83, 3>2=prime and 8>3=prime, then 23=a(4).
If prime(k=25)=97, 5>2=prime and 9>7=prime, then 25=a(5).
If prime(k=52)=239, 5>2=prime and 9>3>2=prime, then 52=a(6), etc.
MATHEMATICA
Select[Range[500], AllTrue[{Min[IntegerDigits[#]], Min[ IntegerDigits[ Prime[#]]]}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Sep 20 2018 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Juri-Stepan Gerasimov, Jan 16 2009
EXTENSIONS
335 replaced by 334, keyword:base added - R. J. Mathar, Mar 29 2010
STATUS
approved