A089740 Primes which are digital complements (A055120) of primes.

3, 5, 7, 13, 31, 37, 43, 67, 73, 79, 97, 103, 113, 127, 139, 157, 163, 173, 181, 191, 199, 223, 227, 229, 233, 251, 257, 271, 281, 283, 313, 337, 349, 353, 359, 367, 383, 409, 419, 433, 449, 457, 463, 467, 479, 491, 523, 541, 547, 563, 569, 587, 601, 619, 631

Offset

1,1

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Maple

A055120:= proc(n) local L;
  L:= map(t -> -t mod 10, convert(n, base, 10));
  add(L[i]*10^(i-1), i=1..nops(L))
end proc:
filter:= t -> isprime(t) and isprime(A055120(t)):
select(filter, [seq(i, i=3..1000, 2)]); # Robert Israel, Jun 29 2018

Mathematica

b=Delete[Union[ Table[If[PrimeQ[a[[n]]]==True, a[[n]], 0], {n, 1, Dimensions[a][[1]]}]], 1]

Crossrefs

Cf. A055120.

Sequence in context: A038928 A359436 A225504 * A191473 A290482 A179633

Adjacent sequences: A089737 A089738 A089739 * A089741 A089742 A089743

Keyword

nonn,base

Author

Roger L. Bagula, Jan 08 2004

Extensions

Edited by Charles R Greathouse IV, Oct 28 2009

Name clarified by Robert Israel, Jun 29 2018

Status

approved