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

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

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

Juri-Stepan Gerasimov, Jan 15 2009, May 13 2010

Extensions

Corrected by Harvey P. Dale, Oct 18 2018

Status

approved