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 A253643 #11 May 22 2025 10:21:41
%S A253643 1,2,3,4,5,6,7,8,9,11,12,13,14,15,17,18,19,21,23,24,25,26,27,28,29,31,
%T A253643 35,36,38,39,41,44,46,54,56,57,58,61,62,65,66,68,72,75,76,77,81,82,83,
%U A253643 85,88,91,92,96,111,113,114,119,121,122,125,129,132,133,136,137,139,146,154,156,157,158,161
%N A253643 Numbers n such that n^k is zeroless for k=0,...,3.
%C A253643 See A252484 for the subsequence of numbers having this property up to k=4.
%t A253643 Select[Range[200],AllTrue[#^Range[3],DigitCount[#,10,0]==0&]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Jul 15 2015 *)
%o A253643 (PARI) is_A253643(n,K=3)=!forstep(k=K,1,-1,vecmin(digits(n^k))||return)
%o A253643 (Python)
%o A253643 for n in range(100):
%o A253643 s1,s2,s3 = str(n),str(n**2),str(n**3)
%o A253643 if s1.find('0') + s2.find('0') + s3.find('0') == -3:
%o A253643 print(n,end=', ') # _Derek Orr_, Mar 09 2015
%Y A253643 Cf. A052382, A252484 (k <= 4), A253644 (k <= 5), A253645 (primes, k <= 5), A253647 (k <= 6), A253646 (primes, k <= 6), A124648 (k <= 7), A124649 (k <= 8).
%Y A253643 Cf. A104264.
%K A253643 nonn,base,easy
%O A253643 1,2
%A A253643 _M. F. Hasler_, Mar 09 2015