login
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
OFFSET
1,2
COMMENTS
Natural density 0.
LINKS
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
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