|
%I #3 Nov 24 2017 16:23:34
%S 4,5,6,7,8,9,22,33,44,55,66,88,99,111,141,151,181,202,212,222,232,242,
%T 252,262,272,282,292,313,333,404,414,424,434,444,454,464,474,484,494,
%U 505,525,565,595,606,616,626,636,646,656,666,676,686,696,808,818,828,838,848,858,868,878,888,898,909,939,949,969,979,999
%N Palindromes which can be written as a sum of two prime numbers.
%e E.g. 181 is a palindrome and is 179 + 2. 179 and 2 are both prime.
%t With[{upto=1000},Select[Select[Union[Total/@Tuples[Prime[ Range[ upto]],2]],# == IntegerReverse[#]&],#<=upto&]] (* _Harvey P. Dale_, Nov 24 2017 *)
%Y Cf. A014091.
%K nonn,base
%O 1,1
%A Meenakshi Srikanth (menakan_s(AT)yahoo.com), Jun 27 2003
%E More terms from _Harvey P. Dale_, Nov 24 2017
|
