OFFSET
1,2
COMMENTS
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..191 (terms < 3.3*10^16)
MATHEMATICA
Select[Range[14*10^5], Count[Flatten[IntegerDigits/@(#^Range[ 0, 6])], 0] == 0&] (* Harvey P. Dale, Apr 29 2018 *)
PROG
(PARI) is_A253647(n, K=6)=!forstep(k=K, 1, -1, vecmin(digits(n^k))||return)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
M. F. Hasler, Jan 07 2015
STATUS
approved