A154863 Primes p such that largest digit of prime(p) is even.

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

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

Cf. A000040, A154767.

Sequence in context: A213665 A068712 A103166 * A194156 A139863 A304672

Adjacent sequences: A154860 A154861 A154862 * A154864 A154865 A154866

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