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 A239213 #14 Dec 04 2014 04:03:31 %S A239213 1,4,9,36,100,144,324,400,784,900,1024,1296,1444,1764,2304,2500,2916, %T A239213 3600,9216,10000,10404,11664,12100,12996,14400,19044,22500,24336, %U A239213 26244,28224,32400,36864,39204,40000,41616,44100,48400,69696,78400,82944,90000,93636 %N A239213 Squares that are divisible by each of their nonzero digits. %C A239213 Intersection of A000290 and A002796. %H A239213 Colin Barker, <a href="/A239213/b239213.txt">Table of n, a(n) for n = 1..1000</a> %e A239213 39204 is in the sequence because 39204 is divisible by 3, 9, 2 and 4. %t A239213 dnzQ[n_]:=And@@Divisible[n,Select[IntegerDigits[n],#!=0&]]; Select[ Range[ 500]^2,dnzQ] (* _Harvey P. Dale_, Dec 04 2014 *) %o A239213 (PARI) isOK(n) = my(v=vecsort(digits(n^2), , 8)); for(i=1+(v[1]==0), #v, if(n^2%v[i], return(0))); 1 %o A239213 s=[]; for(n=1, 1000, if(isOK(n), s=concat(s, n^2))); s %Y A239213 Cf. A239210, A239211, A239212. %Y A239213 Cf. A000290, A002796. %K A239213 nonn,base %O A239213 1,2 %A A239213 _Colin Barker_, Mar 12 2014