OFFSET
1,1
MAPLE
for n from 1 to 300 do p := ithprime(n) ; if isprime( A054054(p) +A054054(ithprime(p)) ) then printf("%d, ", p ) ; end if; end do: # R. J. Mathar, May 05 2010
MATHEMATICA
Select[Prime[Range[100]], PrimeQ[Min[IntegerDigits[#]]+Min[ IntegerDigits[ Prime[ #]]]]&] (* Harvey P. Dale, Jun 22 2019 *)
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
Juri-Stepan Gerasimov, Jan 15 2009
EXTENSIONS
Corrected (11, 31, 293, 373 inserted, 457 removed) by R. J. Mathar, May 05 2010
STATUS
approved