Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #9 Sep 18 2023 15:10:12
%S 13,17,31,53,71,79,97,103,107,211,233,251,277,349,367,431,439,457,503,
%T 521,547,619,673,691,701,709,727,853,907,997,1021,1061,1069,1087,1151,
%U 1201,1223,1249,1429,1447,1483,1511,1601,1609,1627,1663,1699,1753,1789
%N Primes such that the sum of digits is a perfect power (A001597).
%H Harvey P. Dale, <a href="/A143863/b143863.txt">Table of n, a(n) for n = 1..1000</a>
%F Union of A062339, A062343, A106757, A106768, A107618 etc. [From _R. J. Mathar_, Sep 13 2008]
%t Select[Prime[Range[300]],GCD@@FactorInteger[Total[IntegerDigits[#]]][[;;,2]]>1&] (* _Harvey P. Dale_, Sep 18 2023 *)
%Y Cf. A062338.
%K base,easy,nonn
%O 1,1
%A _Giovanni Teofilatto_, Sep 04 2008
%E 389, 569, 581, 659, 677 etc. removed by _R. J. Mathar_, Sep 13 2008