OFFSET
1,1
LINKS
Felix Fröhlich, Table of n, a(n) for n = 1..10000
MATHEMATICA
fQ[n_] := Block[{c = DigitCount@ n}, And[c[[9]] == 0, c[[8]] > 0, c[[10]] > 0]]; Select[Range@ 5280, fQ@ # && fQ[#^2] &] (* Michael De Vlieger, Apr 12 2015 *)
maxdQ[n_]:=Module[{id1=IntegerDigits[n], id2=IntegerDigits[n^2]}, Max[ id1] == Max[ id2] == 8&&Min[id1]==Min[id2]==0]; Select[Range[6000], maxdQ] (* Harvey P. Dale, Oct 19 2021 *)
PROG
(PARI) is(n) = vecmin(digits(n))==0 && vecmin(digits(n^2))==0 && vecmax(digits(n))==8 && vecmax(digits(n^2))==8
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Felix Fröhlich, Apr 08 2015
STATUS
approved