A086472 Primes which are sum of two palindromes.
2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 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
Offset: 1
Examples
41 = 33 + 8, 47 = 44 + 3 are members but 43 is not.
Crossrefs
Cf. A086473.
Programs
-
Mathematica
pal = Select[ Range[1000], FromDigits[ Reverse[ IntegerDigits[ # ]]] == # &];
Extensions
Edited, corrected and extended by Robert G. Wilson v, Jul 27 2003
Comments