A154864 Nonprimes k such that the largest digit of prime(k) is even.

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

Offset

1,2

Links

Table of n, a(n) for n=1..55.

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

Cf. A000040, A054055, A141468, A154767.

Sequence in context: A355041 A212047 A244034 * A328239 A186120 A065343

Adjacent sequences: A154861 A154862 A154863 * A154865 A154866 A154867

Keyword

nonn,base,less

Author

Juri-Stepan Gerasimov, Jan 16 2009

Extensions

36 replaced with 38 by R. J. Mathar, Jan 18 2009

Status

approved