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 A291629 #10 Mar 25 2020 06:54:39 %S A291629 2,7,8,22,28,67,74,88,92,93,212,214,216,234,238,242,258,262,293,308, %T A291629 667,676,678,683,684,692,707,738,758,772,817,822,828,863,864,866,886, %U A291629 888,892,893,926,938,972,974,978,2113,2114,2116,2133,2137,2158,2163,2167 %N A291629 Numbers k such that 4 is the smallest decimal digit of k^2. %C A291629 First digit can't be 1, 4 or 5; last digit can't be 0, 1 or 9. - _Robert Israel_, Mar 25 2020 %H A291629 Robert Israel, <a href="/A291629/b291629.txt">Table of n, a(n) for n = 1..10000</a> %e A291629 28 is in the sequence because 28^2 = 784, the smallest decimal digit of which is 4. %p A291629 filter:= n -> min(convert(n^2,base,10))=4: %p A291629 select(filter, [$1..10000]); # _Robert Israel_, Mar 25 2020 %t A291629 Select[Range[2500],Min[IntegerDigits[#^2]]==4&] (* _Harvey P. Dale_, Aug 03 2019 *) %o A291629 (PARI) select(k->vecmin(digits(k^2))==4, vector(3000, k, k)) %Y A291629 Cf. A291625, A291626, A291627, A291628, A291630, A291631. %K A291629 nonn,base %O A291629 1,1 %A A291629 _Colin Barker_, Aug 28 2017