

A154768


Numbers n where the largest and smallest decimal digit of prime(n) are both even.


1



1, 56, 61, 79, 93, 110, 143, 144, 172, 178, 179, 181, 197, 252, 279, 305, 311, 313, 314, 315, 334, 340, 354, 360, 382, 386, 389, 390, 408, 409, 411, 412, 413, 415, 418, 436, 438, 441, 507, 529, 531, 551, 552, 554, 556, 575, 582, 588, 602, 623, 643, 647, 653
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


COMMENTS

Natural density 0.


LINKS

Harvey P. Dale, Table of n, a(n) for n = 1..3000


MATHEMATICA

lseQ[n_]:=Module[{idp=IntegerDigits[Prime[n]]}, AllTrue[{Max[ idp], Min[ idp]}, EvenQ]]; Select[Range[1000], lseQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 18 2018 *)


CROSSREFS

Sequence in context: A047727 A069810 A292896 * A165159 A336265 A039428
Adjacent sequences: A154765 A154766 A154767 * A154769 A154770 A154771


KEYWORD

nonn,base,less


AUTHOR

JuriStepan Gerasimov, Jan 15 2009, May 13 2010


EXTENSIONS

Corrected by Harvey P. Dale, Oct 18 2018


STATUS

approved



