%I #24 Mar 14 2015 18:41:40

%S 8,77,5711,9797,77327,997997,8053139,60755907,62996069,99979997,

%T 9999799997,71515443427,76933604839,93445113269,999997999997

%N Square root of n contains n as a string of digits to the immediate right of the decimal point (excluding leading zeros).

%C All numbers of the form (10^n-3)*(10^n+1), n > 0, are members. - _Robert G. Wilson v_, Aug 02 2004

%H Robert Tanniru, <a href="/A074841/a074841.txt">PARI Code</a>

%e The square root of 77327 = 278.077327...

%t 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 (PARI)

%o /* Uses PARI functions provided in link

%o * Sample run uses a = [0,12], b=10, p=2, direct=True */

%o GetAllGIs(0,12,10,2,1) \\ _Robert Tanniru_, Nov 20 2013

%Y Cf. A232086, A232110, A074762.

%K nonn,base,hard

%O 1,1

%A _Paul Lusch_, Sep 09 2002

%E More terms from _Robert G. Wilson v_, Aug 02 2004

%E New term a(13) inserted by _Robert Tanniru_, Nov 20 2013