OFFSET
1,1
LINKS
Felix Fröhlich, Table of n, a(n) for n = 1..10000
MATHEMATICA
fQ[n_] := Block[{d = DigitCount@ n}, Plus @@ Take[d, {9, 10}] == 0 && d[[1]] > 0 && d[[8]] > 0]; Select[Range@ 6000, fQ@ # && fQ[#^2] &] (* Michael De Vlieger, Apr 20 2015 *)
sd1ld8Q[n_]:=With[{idn=IntegerDigits[n]}, Max[idn]==8&&Min[idn]==1]; Select[ Range[ 6000], AllTrue[{#, #^2}, sd1ld8Q]&] (* Harvey P. Dale, Oct 14 2022 *)
PROG
(PARI) is(n) = vecmin(digits(n))==1 && vecmin(digits(n^2))==1 && vecmax(digits(n))==8 && vecmax(digits(n^2))==8
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Felix Fröhlich, Apr 18 2015
STATUS
approved