A171046 In the sequence of prime numbers, replace all the '8' digits with '5' and vice versa.

2, 3, 8, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 83, 89, 61, 67, 71, 73, 79, 53, 59, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 181, 187, 163, 167, 173, 179, 151, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 281, 287, 263

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

FromDigits[IntegerDigits[#]/.{5->Q, 8->P}/.{Q->8, P->5}]&/@ Prime[ Range[ 60]] (* Harvey P. Dale, Nov 12 2011 *)

Prog

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

Crossrefs

Sequence in context: A265365 A183141 A196828 * A250116 A318949 A367827

Adjacent sequences: A171043 A171044 A171045 * A171047 A171048 A171049

Keyword

nonn,base,easy

Author

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

Status

approved