login
A171013
In the sequence of prime numbers, replace all digits '1' with '0' and vice versa.
47
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
OFFSET
1,1
LINKS
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
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved