OFFSET
0,3
COMMENTS
a(n) = smallest m such that A007953(n^m) > n, or 0 if no such m exists.
If n is a term of A178501, then a(n) = 0. - Felix Fröhlich, Jun 10 2018
PROG
(PARI) a(n) = if(sumdigits(n) < 2, return(0), my(m=2); while(1, if(sumdigits(n^m) > n, return(m)); m++)) \\ Felix Fröhlich, Jun 10 2018
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Max Alekseyev, Jun 08 2018
STATUS
approved