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 A291642 #10 Aug 31 2025 10:54:30 %S A291642 7,15,33,46,76,77,95,96,157,167,175,179,186,197,207,213,215,326,327, %T A291642 332,335,353,355,379,389,427,429,437,454,457,464,714,764,775,813,816, %U A291642 826,859,883,922,927,942,957,1526,1529,1553,1557,1636,1692,1695,1753,1782 %N A291642 Numbers k such that 3 is the smallest decimal digit of k^3. %H A291642 Robert Israel, <a href="/A291642/b291642.txt">Table of n, a(n) for n = 1..10000</a> %e A291642 33 is in the sequence because 33^3 = 35937, the smallest decimal digit of which is 3. %p A291642 filter:= n -> min(convert(n^3,base,10))=3: %p A291642 select(filter, [$1..10000]); # _Robert Israel_, Aug 29 2017 %t A291642 Select[Range[2000],Min[IntegerDigits[#^3]]==3&] (* _Harvey P. Dale_, Aug 31 2025 *) %o A291642 (PARI) select(k->vecmin(digits(k^3))==3, vector(5000, k, k)) %Y A291642 Cf. A291639, A291640, A291641, A291643, A291644. %K A291642 nonn,base,changed %O A291642 1,1 %A A291642 _Colin Barker_, Aug 28 2017