OFFSET
1,2
COMMENTS
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MAPLE
filter:= proc(n)
local j;
for j from 0 to 4 do
if has(convert(n^j, base, 10), 0) then return false fi
od:
true
end proc:
select(filter, [$1..1000]); # Robert Israel, Jan 15 2015
MATHEMATICA
Select[Range[400], Union[DigitCount[#^Range[4], 10, 0]]=={0}&] (* Harvey P. Dale, Aug 01 2020 *)
PROG
(PARI) is_A252484(n, K=4)=!forstep(k=K, 1, -1, vecmin(digits(n^k))||return)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
M. F. Hasler, Jan 07 2015
STATUS
approved