A171008 Write the n-th prime in binary and change all 0's to 1's and all 1's to 0's.

1, 0, 10, 0, 100, 10, 1110, 1100, 1000, 10, 0, 11010, 10110, 10100, 10000, 1010, 100, 10, 111100, 111000, 110110, 110000, 101100, 100110, 11110, 11010, 11000, 10100, 10010, 1110, 0, 1111100, 1110110, 1110100, 1101010, 1101000, 1100010, 1011100

Offset

1,3

Links

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

Maple

A171008 := proc(n) local p2 ; p2 := convert(ithprime(n), base, 2) ; add( (1-op(i, p2)) *10^(i-1), i=1..nops(p2)) ; end proc: seq(A171008(n), n=1..80) ; # R. J. Mathar, Sep 04 2010

Mathematica

FromDigits/@(IntegerDigits[#, 2]&/@Prime[Range[40]]/.{0->1, 1->0}) (* Harvey P. Dale, Aug 19 2017 *)

Prog

(PARI) a(n)=my(v=binary(prime(n)), k=1/10); sum(i=0, #v-1, k*=10; (1-v[ #v-i])*k) \\ Charles R Greathouse IV, Sep 08 2010

Crossrefs

See A145382 for the decimal equivalents.

Sequence in context: A286120 A286774 A285772 * A167320 A092916 A285780

Adjacent sequences: A171005 A171006 A171007 * A171009 A171010 A171011

Keyword

nonn,base

Author

N. J. A. Sloane, Sep 03 2010

Extensions

More terms from Charles R Greathouse IV and R. J. Mathar, Sep 04 2010

Status

approved