A155478 Even composites n such that smallest digit of n > smallest digit of n-th prime.

6, 8, 26, 28, 32, 34, 36, 38, 42, 44, 46, 48, 54, 56, 58, 64, 66, 68, 74, 76, 78, 82, 84, 86, 88, 94, 96, 98, 126, 172, 174, 176, 178, 182, 184, 186, 212, 214, 222, 224, 226, 228, 232, 234, 236, 238, 242, 244, 246, 248, 252, 254, 256, 258, 262, 264, 266, 268, 272

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Example

If n=6=even composite and 13=prime(6), then 6>1 and 6+a(1). If n=8=even composite and 19=prime(8), then 8>1 and 8=a(2). If n=26=even composite and 101=prime(26), then 2>0 and 26=a(3), etc.

Mathematica

Select[2*Range[2, 200], Min[IntegerDigits[#]]>Min[IntegerDigits[ Prime[ #]]]&] (* Harvey P. Dale, Oct 05 2015 *)

Crossrefs

Cf. A000027, A000040, A005843.

Sequence in context: A156231 A024860 A025100 * A219191 A107366 A024873

Adjacent sequences: A155475 A155476 A155477 * A155479 A155480 A155481

Keyword

nonn,base

Author

Juri-Stepan Gerasimov, Jan 23 2009

Extensions

Entries checked by R. J. Mathar, May 10 2010

Status

approved