OFFSET
1,2
EXAMPLE
392 is in the sequence because (1) s(392) = 3 + 9 + 2 = 14 and w(392) = 1 + 4 = 5, and (2) 14^5 = 537824 is divisible by 392.
MATHEMATICA
Select[Range[10^5], Divisible[Total@IntegerDigits@#^FixedPoint[Total@IntegerDigits@#&, #], #]&] (* Giorgos Kalogeropoulos, Aug 20 2021 *)
PROG
(PARI) a010888(n) = (n-1)%9+1;
isok(n) = !(sumdigits(n)^a010888(n) % n); \\ Michel Marcus, Feb 27 2014
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Luc Stevens (lms022(AT)yahoo.com), Apr 14 2006
EXTENSIONS
Corrected by Michel Marcus, Feb 27 2014
STATUS
approved