OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
1296 is a term because 6^4 = 1296 and 1+2+9+6 = 18 and 1296/18 = 72.
MATHEMATICA
Select[Range[10^4], Divisible[#, Plus @@ IntegerDigits[#]] && (# == 1 || GCD @@ FactorInteger[#][[;; , 2]] > 1) &] (* Amiram Eldar, Jan 27 2021 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Jason Earls, Sep 24 2004
STATUS
approved