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

Author

N. J. A. Sloane, Sep 03 2010

Keywords

• nonn
• base

Crossrefs

See A145382 for the decimal equivalents.

Programs

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 *)

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

Extensions

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