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

0, 3, 5, 7, 11, 13, 17, 19, 3, 9, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 121, 123, 127, 129, 113, 107, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 11, 3, 7, 9, 33, 39, 41, 51, 57, 63, 69, 71, 77, 81, 83, 93

Offset

1,2

Links

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

Mathematica

FromDigits[IntegerDigits[#]/.{2->p, 0->q}/.{p->0, q->2}]&/@ Prime[ Range[70]] (* Harvey P. Dale, Dec 11 2011 *)

Prog

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

Crossrefs

Sequence in context: A003255 A263321 A244365 * A254050 A250094 A351398

Adjacent sequences: A171011 A171012 A171013 * A171015 A171016 A171017

Keyword

nonn,base,easy

Author

N. J. A. Sloane and Vincenzo Librandi, Sep 04 2010

Status

approved