A334321 Non-palindromic primes.
13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 103, 107, 109, 113, 127, 137, 139, 149, 157, 163, 167, 173, 179, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271, 277, 281, 283, 293, 307, 311, 317, 331, 337, 347, 349
Offset: 1
Examples
97 is prime and is not a palindrome, hence 97 belongs to this sequence.
Programs
-
Mathematica
Select[Range[350], PrimeQ[#] && !PalindromeQ[#] &] (* Amiram Eldar, Apr 23 2020 *)
-
PARI
isok(p) = if (isprime(p), my(d=digits(p)); d != Vecrev(d)); \\ Michel Marcus, Apr 23 2020
Formula
Formula : A087999(a(n)) = 1.
Comments