This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A143863 #9 Sep 18 2023 15:10:12 %S A143863 13,17,31,53,71,79,97,103,107,211,233,251,277,349,367,431,439,457,503, %T A143863 521,547,619,673,691,701,709,727,853,907,997,1021,1061,1069,1087,1151, %U A143863 1201,1223,1249,1429,1447,1483,1511,1601,1609,1627,1663,1699,1753,1789 %N A143863 Primes such that the sum of digits is a perfect power (A001597). %H A143863 Harvey P. Dale, <a href="/A143863/b143863.txt">Table of n, a(n) for n = 1..1000</a> %F A143863 Union of A062339, A062343, A106757, A106768, A107618 etc. [From _R. J. Mathar_, Sep 13 2008] %t A143863 Select[Prime[Range[300]],GCD@@FactorInteger[Total[IntegerDigits[#]]][[;;,2]]>1&] (* _Harvey P. Dale_, Sep 18 2023 *) %Y A143863 Cf. A062338. %K A143863 base,easy,nonn %O A143863 1,1 %A A143863 _Giovanni Teofilatto_, Sep 04 2008 %E A143863 389, 569, 581, 659, 677 etc. removed by _R. J. Mathar_, Sep 13 2008