OFFSET
1,1
COMMENTS
Relative density 0 in the primes. It is natural to conjecture that there are infinitely many, but can this be proved? - Charles R Greathouse IV, Nov 12 2010
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 1..2500
MAPLE
A054055 := proc(n) max( op(convert(n, base, 10))) ; end: isA154767 := proc(n) RETURN( isprime(n) and ( A054055(n) mod 2 ) = 0 ) ; end; for n from 1 to 400 do p := ithprime(n) ; if isA154767(p) then printf("%d, ", p) ; fi; od: # R. J. Mathar, Jan 18 2009
MATHEMATICA
fQ[p_] := EvenQ[ Sort[ IntegerDigits[ p]][[-1]]]; Select[ Prime@ Range@ 200, fQ] (* Robert G. Wilson v, May 15 2014 *)
Select[Prime[Range[200]], EvenQ[Max[IntegerDigits[#]]]&] (* Harvey P. Dale, Sep 21 2014 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Juri-Stepan Gerasimov, Jan 15 2009
EXTENSIONS
837 replaced by 827. R. J. Mathar, Jan 18 2009
STATUS
approved