OFFSET
1,2
COMMENTS
See A252484 for the subsequence of numbers having this property up to k=4.
MATHEMATICA
Select[Range[200], AllTrue[#^Range[3], DigitCount[#, 10, 0]==0&]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jul 15 2015 *)
PROG
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
M. F. Hasler, Mar 09 2015
STATUS
approved