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 A294997 #7 Sep 10 2019 12:40:15 %S A294997 3,14,15,23,26,30,54,55,56,63,65,67,78,91,105,111,121,126,133,135,137, %T A294997 140,147,150,163,167,168,173,176,188,197,226,230,245,256,258,260,273, %U A294997 276,291,293,295,300,318,321,343,346,375,376,385,386,397,415,417,418,424,425,488,497 %N A294997 Numbers n such that the largest digit of n^3 is 7. %C A294997 For any term a(n), all numbers of the form a(n)*10^k, k >= 0, are in this sequence. We could call "primitive" the terms not of this form, i.e., without trailing '0'. %e A294997 3 is in the sequence because the largest digit of 3^3 = 27 is 7. %t A294997 Select[Range[500],Max[IntegerDigits[#^3]]==7&] (* _Harvey P. Dale_, Sep 10 2019 *) %o A294997 (PARI) for(n=1,2e3, vecmax(digits(n^3))==7&&print1(n",")) %Y A294997 Cf. A295022 (the corresponding cubes); A278937, A294664, A294665, A294996 .. A294999 (same for digit 3, ..., 9). %Y A294997 Cf. A000578 (the cubes). %K A294997 nonn,base %O A294997 1,1 %A A294997 _M. F. Hasler_, Nov 13 2017