A241059 Antipalindromic primes: primes with an even number of digits such that the digits in the first half of the prime differ from the corresponding digits of the second half.

13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 1013, 1019, 1033, 1039, 1049, 1063, 1069, 1087, 1093, 1097, 1103, 1109, 1123, 1129, 1153, 1163, 1187, 1193, 1213, 1217, 1237, 1249, 1259, 1277, 1279, 1283, 1289, 1297, 1303, 1307

Offset

1,1

Links

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

C. Caldwell, H. Dubner (Eds): The top ten prime numbers: from the unpublished collections of R. Ondrejka (May 2001), p. 6.

Maple

filter:= proc(n) local L, LR;
  L:= convert(n, base, 10);
  if nops(L)::odd
    then return false
  fi;
  L:= ListTools:-Reverse(L) - L;
  not has(L, 0);
end;
Primes:= [seq(op(select(isprime, [$10^(2*n-1) ... 10^(2*n)-1])), n=1..3)]:
A241059:= select(filter, Primes); # Robert Israel, Apr 17 2014

Prog

(PARI) for(n=1, 1307, s=#Str(n); if(!bitand(s, 1)&&isprime(n), t=0; v=Vec(Str(n)); for(k=1, s/2, if(v[k]==v[s+1-k], break, t++)); if(t==s/2, print1(n, ", "))));

Crossrefs

Sequence in context: A334391 A334321 A034845 * A040136 A049482 A099651

Adjacent sequences: A241056 A241057 A241058 * A241060 A241061 A241062

Keyword

nonn,base

Author

Arkadiusz Wesolowski, Apr 15 2014

Status

approved