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

2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 1, 7, 71, 73, 79, 83, 89, 97, 161, 163, 167, 169, 113, 127, 131, 137, 139, 149, 151, 157, 103, 107, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 203, 209

Offset

1,1

Links

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

Mathematica

FromDigits[IntegerDigits[#]/.{6->p, 0->q}/.{p->0, q->6}]&/@Prime[Range[100]] (* Vincenzo Librandi, Apr 07 2013 *)

Prog

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

Crossrefs

Sequence in context: A117095 A054403 A092579 * A005180 A118848 A316903

Adjacent sequences: A171025 A171026 A171027 * A171029 A171030 A171031

Keyword

nonn,base,easy

Author

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

Status

approved