|
|
A154864
|
|
Nonprimes k such that the largest digit of prime(k) is even.
|
|
0
|
|
|
1, 14, 18, 38, 42, 56, 60, 76, 82, 84, 86, 90, 93, 110, 112, 115, 116, 117, 119, 121, 124, 138, 141, 142, 143, 144, 147, 148, 150, 152, 153, 154, 172, 178, 192, 194, 195, 208, 218, 221, 224, 234, 235, 236, 250, 252, 255, 261, 276, 279, 280, 282, 284, 285, 286
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MAPLE
|
A054055 := proc(n) max( op(convert(n, base, 10))) ; end: isA154864 := proc(n) RETURN(not isprime(n) and ( A054055(ithprime(n)) mod 2 ) = 0 ) ; end: for n from 1 to 400 do if isA154864(n) then printf("%d, ", n) ; fi; od: # R. J. Mathar, Jan 18 2009
|
|
MATHEMATICA
|
Select[Range[300], !PrimeQ[#]&&EvenQ[Max[IntegerDigits[Prime[#]]]]&] (* Harvey P. Dale, Dec 01 2017 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,less
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|