OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Prime[Range[300]], GCD@@FactorInteger[Total[IntegerDigits[#]]][[;; , 2]]>1&] (* Harvey P. Dale, Sep 18 2023 *)
CROSSREFS
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