%I #13 Jan 07 2019 04:19:55
%S 1,14,18,38,42,56,60,76,82,84,86,90,93,110,112,115,116,117,119,121,
%T 124,138,141,142,143,144,147,148,150,152,153,154,172,178,192,194,195,
%U 208,218,221,224,234,235,236,250,252,255,261,276,279,280,282,284,285,286
%N Nonprimes k such that the largest digit of prime(k) is even.
%p 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
%t Select[Range[300],!PrimeQ[#]&&EvenQ[Max[IntegerDigits[Prime[#]]]]&] (* _Harvey P. Dale_, Dec 01 2017 *)
%Y Cf. A000040, A054055, A141468, A154767.
%K nonn,base,less
%O 1,2
%A _Juri-Stepan Gerasimov_, Jan 16 2009
%E 36 replaced with 38 by _R. J. Mathar_, Jan 18 2009
|