[go: up one dir, main page]

login
A143863
Primes such that the sum of digits is a perfect power (A001597).
1
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
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
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