OFFSET
1,2
COMMENTS
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..10000
MAPLE
filter:= proc(x)
local k;
for k from 1 to 5 do
if has(convert(x^k, base, 10), 0) then return false fi
od:
true
end proc:
select(filter, [$1..10000]); # Robert Israel, Jan 07 2015
MATHEMATICA
Select[Range[2000], Count[Flatten[IntegerDigits/@(#^Range[5])], 0]==0&] (* Harvey P. Dale, Jun 10 2017 *)
PROG
(PARI) is_A253644(n, K=5)=!forstep(k=K, 1, -1, vecmin(digits(n^k))||return)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
M. F. Hasler, Jan 07 2015
STATUS
approved