A171013 - OEIS

A171013

In the sequence of prime numbers, replace all digits '1' with '0' and vice versa.

2, 3, 5, 7, 0, 3, 7, 9, 23, 29, 30, 37, 40, 43, 47, 53, 59, 60, 67, 70, 73, 79, 83, 89, 97, 10, 13, 17, 19, 3, 27, 30, 37, 39, 49, 50, 57, 63, 67, 73, 79, 80, 90, 93, 97, 99, 200, 223, 227, 229, 233, 239, 240, 250, 257, 263, 269, 270, 277, 280, 283, 293, 317

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

FORMULA

a(n) = A222210(A000040(n)). - M. F. Hasler, Feb 13 2013

MATHEMATICA

FromDigits[IntegerDigits[#]/.{1->p, 0->q}/.{p->0, q->1}]&/@Prime[Range[100]] (* Vincenzo Librandi, Jul 06 2012 *)

PROG

(PARI) a(n)=my(v=[1, 0, 2, 3, 4, 5, 6, 7, 8, 9]); apply(k->v[k+1], digits(prime(n))) \\ Charles R Greathouse IV, Jul 16 2013

CROSSREFS