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

Author

Roger L. Bagula, Jan 08 2004

Keywords

• nonn
• base

Links

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

Crossrefs

Cf. A055120.

Programs

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]

Extensions

Edited by Charles R Greathouse IV, Oct 28 2009

Name clarified by Robert Israel, Jun 29 2018