OFFSET
1,1
LINKS
Iain Fox, Table of n, a(n) for n = 1..10000
MAPLE
A054055 := proc(n) max( op(convert(n, base, 10))) ; end: isA154863 := proc(n) isprime(n) and ( A054055(ithprime(n)) mod 2 ) = 0 ; end: for n from 1 to 1200 do if isA154863(n) then printf("%d, ", n) ; fi; od: # R. J. Mathar, Jan 18 2009
MATHEMATICA
Select[Prime[Range[200]], EvenQ[Max[IntegerDigits[Prime[#]]]]&] (* Harvey P. Dale, Sep 05 2015 *)
PROG
(PARI) is(p) = isprime(p) && vecmax(digits(prime(p)))%2==0 \\ Iain Fox, Nov 30 2017
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
Juri-Stepan Gerasimov, Jan 16 2009
EXTENSIONS
613, 617, 619 removed by R. J. Mathar, Jan 18 2009
STATUS
approved