OFFSET
1,2
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..10000
EXAMPLE
5 is a term as 5^5 = 3125 which is divisible by 5.
16 is a term as 1^1*6^6 = 46656 which is divisible by 16.
375 is a term as 3^3*7^7*5^5 = 69486440625 which is divisible by 375.
1176 is a term as 1^1*1^1*7^7*6^6 = 38423222208 which is divisible by 1176.
MATHEMATICA
pow[n_] := If[n == 0, 1, n^n]; Select[Range[2^12], Divisible[Times @@ (pow /@ IntegerDigits[#]), #] &] (* Amiram Eldar, May 13 2020 *)
PROG
(PARI) isok(m) = my(d=digits(m)); (prod(k=1, #d, d[k]^d[k]) % m) == 0; \\ Michel Marcus, May 14 2020
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Scott R. Shannon, May 13 2020
STATUS
approved