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 A104315 #9 Jan 03 2014 16:10:35 %S A104315 106,107,108,109,204,206,207,208,209,304,306,307,308,309,404,406,407, %T A104315 408,409,604,606,607,608,704,706,707,804,806,807,808,809,904,907,908, %U A104315 909,1056,1057,1058,1059,1061,1062,1063,1065,1066,1067,1069,1072,1073 %N A104315 Numbers having in decimal representation at least one zero, but with no zero in their square. %C A104315 A104316(n) = a(n)^2. %H A104315 Reinhard Zumkeller, <a href="/A104315/b104315.txt">Table of n, a(n) for n = 1..10000</a> %F A104315 (1 - A168046(a(n))) * A168046(A000290(a(n))) = 1. - _Reinhard Zumkeller_, Jan 03 2014 %e A104315 909^2 = 826281, therefore 909 is a term. %o A104315 (PARI) isok(n) = !vecmin(digits(n)) && vecmin(digits(n^2)); \\ _Michel Marcus_, Jan 03 2014 %o A104315 (Haskell) %o A104315 a104315 n = a104315_list !! (n-1) %o A104315 a104315_list = filter (\x -> a168046 x == 0 && a168046 (x ^ 2) == 1) [1..] %o A104315 -- _Reinhard Zumkeller_, Jan 03 2014 %Y A104315 Cf. A104317, A052041. %K A104315 nonn,base %O A104315 1,1 %A A104315 _Reinhard Zumkeller_, Mar 01 2005