OFFSET
0,1
EXAMPLE
MATHEMATICA
Table[Select[Range[100000], Union[IntegerDigits[#^2]] == Delete[Range[0, 9], n + 1] &][[1]], {n, 0, 9}]
PROG
(Python)
def a(n):
k, target = 1, set(str(i) for i in range(10) if i != n)
while set(str(k*k)) != target: k += 1
return k
print([a(n) for n in range(10)]) # Michael S. Branicky, Aug 19 2021
CROSSREFS
KEYWORD
nonn,base,fini,full
AUTHOR
Tanya Khovanova, Aug 19 2021
STATUS
approved