|
%I #7 Jun 19 2021 12:28:01
%S 929,16661,17471,36263,70607,72227,73037,91019,1074701,1082801,
%T 1180811,1262621,1328231,1360631,1508051,1532351,1630361,1712171,
%U 1802081,3160613,3218123,7014107,7300037,9002009,102383201,102707201,103282301
%N Palindromic primes with digit sum 20.
%C Cf. A070250 Palindromic primes with digit sum 10, A107579 Primes with digit sum = 10, A106760 Primes with digit sum = 20, A109185 Palindromic primes with digit sum 40.
%H Chai Wah Wu, <a href="/A109184/b109184.txt">Table of n, a(n) for n = 1..4732</a>
%t Select[Prime[Range[5940000]],PalindromeQ[#]&&Total[IntegerDigits[#]]==20&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jun 19 2021 *)
%Y Cf. A070250, A106760, A107579, A109185.
%K base,nonn
%O 1,1
%A _Zak Seidov_, Jun 22 2005
|
