

A171029


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


3



2, 3, 5, 7, 66, 63, 67, 69, 23, 29, 36, 37, 46, 43, 47, 53, 59, 16, 17, 76, 73, 79, 83, 89, 97, 606, 603, 607, 609, 663, 627, 636, 637, 639, 649, 656, 657, 613, 617, 673, 679, 686, 696, 693, 697, 699, 266, 223, 227, 229, 233, 239, 246, 256, 257, 213
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS

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


MATHEMATICA

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


PROG

(PARI) a(n)=my(v=[0, 6, 2, 3, 4, 5, 1, 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: A048402 A237440 A237441 * A241723 A090717 A090715
Adjacent sequences: A171026 A171027 A171028 * A171030 A171031 A171032


KEYWORD

nonn,base,easy


AUTHOR

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


STATUS

approved



