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 A062371 #13 Sep 17 2024 12:34:13 %S A062371 1,4,9,10,11,14,19,22,28,33,40,41,44,49,55,66,77,82,88,90,91,94,99, %T A062371 100,101,104,109,110,111,114,119,122,128,133,140,141,144,149,155,166, %U A062371 177,182,188,190,191,194,199,202,208,212,218,220,221,224,229,236,242,248 %N A062371 Numbers the product of whose nonzero digits is a perfect square. %H A062371 Harry J. Smith, <a href="/A062371/b062371.txt">Table of n, a(n) for n = 1..1000</a> %e A062371 128 is a member as 1*2*8 = 16 is a square. 140 is also a member as 1*4 = 4. %o A062371 (PARI) ok(k)={my(d=digits(k)); issquare(prod(i=1, #d, if(d[i], d[i], 1)))} \\ _Andrew Howroyd_, Sep 17 2024 %Y A062371 Cf. A062372. %K A062371 nonn,base,easy %O A062371 1,2 %A A062371 _Amarnath Murthy_, Jun 26 2001 %E A062371 Corrected and extended by Larry Reeves (larryr(AT)acm.org), Jul 06 2001 %E A062371 Offset changed by _Andrew Howroyd_, Sep 17 2024