This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A257211 #10 Oct 14 2022 14:55:54
%S A257211 128,178,871,1128,1178,1218,1258,1278,1284,1328,1358,1368,1478,1678,
%T A257211 1681,1768,1778,1784,1785,1828,1874,1881,2681,2861,2871,3418,3581,
%U A257211 3718,3816,3841,4178,4318,4815,4831,4841,4881,5178,5181,5182,5318,5815,5841,5871,5881
%N A257211 Numbers n such that the decimal expansions of both n and n^2 have 1 as smallest digit and 8 as largest digit.
%H A257211 Felix Fröhlich, <a href="/A257211/b257211.txt">Table of n, a(n) for n = 1..10000</a>
%t A257211 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 *)
%t A257211 sd1ld8Q[n_]:=With[{idn=IntegerDigits[n]},Max[idn]==8&&Min[idn]==1]; Select[ Range[ 6000],AllTrue[{#,#^2},sd1ld8Q]&] (* _Harvey P. Dale_, Oct 14 2022 *)
%o A257211 (PARI) is(n) = vecmin(digits(n))==1 && vecmin(digits(n^2))==1 && vecmax(digits(n))==8 && vecmax(digits(n^2))==8
%Y A257211 Cf. A256630, A256631, A256633, A256634, A256708, A256709, A256889, A257197, A257210, A256601.
%K A257211 nonn,base
%O A257211 1,1
%A A257211 _Felix Fröhlich_, Apr 18 2015