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 A046030 #34 Feb 16 2025 08:32:38
%S A046030 0,1,4,9,10,11,14,19,40,41,44,49,90,91,94,99,100,101,104,109,110,111,
%T A046030 114,119,140,141,144,149,190,191,194,199,400,401,404,409,410,411,414,
%U A046030 419,440,441,444,449,490,491,494,499,900,901,904,909,910,911,914,919
%N A046030 Numbers whose digits are squares.
%H A046030 Bruno Berselli, <a href="/A046030/b046030.txt">Table of n, a(n) for n = 1..1001</a>
%H A046030 Robert Baillie and Thomas Schmelzer, <a href="https://library.wolfram.com/infocenter/MathSource/7166/">Summing Kempner's Curious (Slowly-Convergent) Series</a>, Mathematica Notebook kempnerSums.nb, Wolfram Library Archive, 2008.
%H A046030 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/SmarandacheSequences.html">Smarandache Sequences</a>.
%F A046030 Sum_{n>=2} 1/a(n) = 2.105050135115910443669713125834050962799269137280589957713644901011872709688... (calculated using Baillie and Schmelzer's kempnerSums.nb, see Links). - _Amiram Eldar_, Feb 15 2024
%t A046030 Union[FromDigits/@Flatten[With[{l={0,1,4,9}},Table[Tuples[l,{i}],{i,3}]],1]] (* _Harvey P. Dale_, Dec 19 2010 *)
%t A046030 Select[Range[0, 999], Intersection[{2, 3, 5, 6, 7, 8}, Union[IntegerDigits[#]]] == {} &] (* _T. D. Noe_, Dec 20 2010 *)
%o A046030 (Magma) [n: n in [0..1000] | forall{d: d in Intseq(n) | d in [0,1,4,9]}]; // _Bruno Berselli_, Jan 10 2013
%o A046030 (PARI) is(n)=#setintersect(Set(digits(n)), [2,3,5,6,7,8])==0 \\ _Charles R Greathouse IV_, Feb 11 2017
%K A046030 nonn,base
%O A046030 1,3
%A A046030 _Eric W. Weisstein_
%E A046030 Offset corrected by _Amiram Eldar_, Feb 15 2024