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,1

Links

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

Formula

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

Mathematica

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

Crossrefs

Cf. A062338.

Sequence in context: A138535 A116671 A062338 * A158571 A176882 A272403

Adjacent sequences: A143860 A143861 A143862 * A143864 A143865 A143866

Keyword

base,easy,nonn

Author

Giovanni Teofilatto, Sep 04 2008

Extensions

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

Status

approved