editing
approved
editing
approved
Select[Prime[Range[5940000]], PalindromeQ[#]&&Total[IntegerDigits[#]]==20&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 19 2021 *)
approved
editing
proposed
approved
editing
proposed
Chai Wah Wu, <a href="/A109184/b109184.txt">Table of n, a(n) for n = 1..4732</a>
approved
editing
_Zak Seidov (zakseidov(AT)yahoo.com), _, Jun 22 2005
Palindromic primes with digit sum 20.
929, 16661, 17471, 36263, 70607, 72227, 73037, 91019, 1074701, 1082801, 1180811, 1262621, 1328231, 1360631, 1508051, 1532351, 1630361, 1712171, 1802081, 3160613, 3218123, 7014107, 7300037, 9002009, 102383201, 102707201, 103282301
1,1
base,nonn
Zak Seidov (zakseidov(AT)yahoo.com), Jun 22 2005
approved