A143863 Primes such that the sum of digits is a perfect power (A001597).

13, 17, 31, 53, 71, 79, 97, 103, 107, 211, 233, 251, 277, 349, 367, 431, 439, 457, 503, 521, 547, 619, 673, 691, 701, 709, 727, 853, 907, 997, 1021, 1061, 1069, 1087, 1151, 1201, 1223, 1249, 1429, 1447, 1483, 1511, 1601, 1609, 1627, 1663, 1699, 1753, 1789

Offset: 1

Author

Giovanni Teofilatto, Sep 04 2008

Keywords

• base
• easy
• nonn

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A062338.

Programs

Mathematica

Select[Prime[Range[300]],GCD@@FactorInteger[Total[IntegerDigits[#]]][[;;,2]]>1&] (* Harvey P. Dale, Sep 18 2023 *)

Formula

Union of A062339, A062343, A106757, A106768, A107618 etc. [From R. J. Mathar, Sep 13 2008]

Extensions

389, 569, 581, 659, 677 etc. removed by R. J. Mathar, Sep 13 2008