Números Primos Especiales

{31,826699,313119843606266222723931946804611259287100533754507329247768328563715123287679948437264517293404303260795541448480275059086587161357892405477908284669463639709544036228659629}

CÓDIGO PARA EL PROGRAMA WOLFRAM MATEMATHICA

AA=Table[Sum[Prime[i]^Prime[i],{i,1,n}],{n,1,24}]

Cases[AA,PrimeQ]