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 A086935 #14 May 02 2025 21:43:22 %S A086935 0,1,25,36,4,25,16,576,81,9,100,1156,121,1369,144,1156,16,1764,1849, %T A086935 196,2025,121,225,2304,324,25,2601,2704,289,529,2304,3136,324,3364, %U A086935 3481,4356,36,3721,3844,3969,400,441,4225,4356,144,13456,4624,4761,484,49 %N A086935 a(n) is the smallest square such that n occurs in its decimal representation. %C A086935 If only positive squares are considered then the first term is 100. %H A086935 Robin Jones, <a href="/A086935/b086935.txt">Table of n, a(n) for n = 0..10000</a> %e A086935 a(3) = 36 since 3 occurs in 36, but not in 0, 1, 4, 9, 16, 25. %o A086935 (ARIBAS) var sn,sq:string; b:boolean; end; begin for n := 0 to 49 do sn := itoa(n); c := length(sn); b := true; p := 0; while b do q := p^2; sq := itoa(q); d := length(sq); j := 0; while b and j<=d-c do if sn=sq[j..j+c-1] then b := false; write(q,","); else inc(j); end; end; if b then inc(p); end; end; end; end; %Y A086935 Cf. A062584. %K A086935 easy,nonn,base %O A086935 0,3 %A A086935 _Zak Seidov_, Sep 22 2003 %E A086935 Edited, corrected and extended by _Klaus Brockhaus_ and _Ray Chandler_, Sep 22 2003