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 A052045 #33 Feb 16 2025 08:32:41
%S A052045 1,8,27,64,125,216,343,512,729,1331,1728,2197,2744,3375,4913,5832,
%T A052045 6859,9261,12167,13824,15625,17576,19683,21952,24389,29791,32768,
%U A052045 35937,42875,46656,54872,59319,68921,85184,91125,97336,117649,132651,148877
%N A052045 Cubes lacking the digit zero in their decimal expansion.
%C A052045 This sequence is infinite since A052427(n)^3 is a term for all n>=0. - _Amiram Eldar_, Nov 23 2020
%H A052045 Amiram Eldar, <a href="/A052045/b052045.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from Alois P. Heinz)
%H A052045 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/Zerofree.html">Zerofree</a> [From _Reinhard Zumkeller_, Dec 01 2009]
%F A052045 Intersection of A052382 and A000578; A168046(a(n))*A010057(a(n)) = 1. - _Reinhard Zumkeller_, Dec 01 2009
%F A052045 a(n) = A052044(n)^3. - _Amiram Eldar_, Nov 23 2020
%p A052045 select(t -> not has(convert(t,base,10),0), [seq(m^3,m=1..10^3)]); # _Robert Israel_, Aug 24 2014
%t A052045 Select[Range[53]^3, DigitCount[#, 10, 0] == 0 &] (* _Amiram Eldar_, Nov 23 2020 *)
%o A052045 (Python)
%o A052045 A052045 = [n**3 for n in range(1,10**5) if not str(n**3).count('0')]
%o A052045 # _Chai Wah Wu_, Aug 24 2014
%o A052045 (PARI) lista(nn) = {for (n=1, nn, if (vecmin(digits(cub=n^3)), print1(cub, ", ")););} \\ _Michel Marcus_, Aug 25 2014
%Y A052045 Cubes: A052044, A051750, A051751, A051832, A051833, A052427.
%Y A052045 Squares: A052040, A052041, A052042, A052043.
%K A052045 nonn,base
%O A052045 1,2
%A A052045 _Patrick De Geest_, Dec 15 1999