login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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 (list; graph; refs; listen; history; text; internal format)
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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 1 07:45 EDT 2021. Contains 346384 sequences. (Running on oeis4.)