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