login
A154863
Primes p such that largest digit of prime(p) is even.
1
13, 23, 47, 53, 61, 79, 83, 89, 103, 107, 151, 179, 181, 197, 227, 257, 277, 281, 283, 311, 313, 331, 347, 353, 389, 409, 569, 601, 607, 631, 643, 647, 653, 701, 709, 739, 743, 761, 769, 797, 821, 823, 827, 829, 857, 859, 877, 881, 883, 929, 947, 991, 997
OFFSET
1,1
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
Sequence in context: A213665 A068712 A103166 * A194156 A139863 A304672
KEYWORD
nonn,base,less
AUTHOR
EXTENSIONS
613, 617, 619 removed by R. J. Mathar, Jan 18 2009
STATUS
approved