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 A074841 #24 Mar 14 2015 18:41:40
%S A074841 8,77,5711,9797,77327,997997,8053139,60755907,62996069,99979997,
%T A074841 9999799997,71515443427,76933604839,93445113269,999997999997
%N A074841 Square root of n contains n as a string of digits to the immediate right of the decimal point (excluding leading zeros).
%C A074841 All numbers of the form (10^n-3)*(10^n+1), n > 0, are members. - _Robert G. Wilson v_, Aug 02 2004
%H A074841 Robert Tanniru, <a href="/A074841/a074841.txt">PARI Code</a>
%e A074841 The square root of 77327 = 278.077327...
%t A074841 f[n_] := Block[{l = Floor[ Log[10, n] + 1], rd = RealDigits[ Sqrt[n], 10, 24], id = IntegerDigits[n]}, rdd = Drop[ rd[[1]], rd[[2]]]; While[ rdd[[1]] == 0, rdd = Drop[rdd, 1]]; Take[rdd, l] == id]; Do[ If[ StringPosition[ ToString[ N[ Sqrt[n], 24]], ToString[n]] != {}, If[ f[n], Print[n]]], {n, 2, 6 10^8}] (* _Robert G. Wilson v_, Aug 02 2004 *)
%o A074841 (PARI)
%o A074841 /* Uses PARI functions provided in link
%o A074841 * Sample run uses a = [0,12], b=10, p=2, direct=True */
%o A074841 GetAllGIs(0,12,10,2,1) \\ _Robert Tanniru_, Nov 20 2013
%Y A074841 Cf. A232086, A232110, A074762.
%K A074841 nonn,base,hard
%O A074841 1,1
%A A074841 _Paul Lusch_, Sep 09 2002
%E A074841 More terms from _Robert G. Wilson v_, Aug 02 2004
%E A074841 New term a(13) inserted by _Robert Tanniru_, Nov 20 2013