A174416 Numbers whose binary expansion is a decimal nonprime.

1, 2, 4, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70

Offset

1,2

Comments

Complement of A036952. Binary expansion of a(n) in A174417.

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Example

For n=6, a(6) = 8; binary expansion of 8 = 1000 (nonprime).

Maple

remove(t -> isprime(convert(t, binary)), [$1..100]); # Robert Israel, Jun 13 2017

Mathematica

Select[Range[80], !PrimeQ[FromDigits[IntegerDigits[#, 2]]]&] (* Harvey P. Dale, May 10 2012 *)

Crossrefs

Sequence in context: A023835 A272633 A240817 * A228728 A138888 A039240

Adjacent sequences: A174413 A174414 A174415 * A174417 A174418 A174419

Keyword

nonn

Author

Jaroslav Krizek, Mar 19 2010

Extensions

Corrected and extended by Harvey P. Dale, May 10 2012

Status

approved