login
A074841
Square root of n contains n as a string of digits to the immediate right of the decimal point (excluding leading zeros).
12
8, 77, 5711, 9797, 77327, 997997, 8053139, 60755907, 62996069, 99979997, 9999799997, 71515443427, 76933604839, 93445113269, 999997999997
OFFSET
1,1
COMMENTS
All numbers of the form (10^n-3)*(10^n+1), n > 0, are members. - Robert G. Wilson v, Aug 02 2004
EXAMPLE
The square root of 77327 = 278.077327...
MATHEMATICA
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 *)
PROG
(PARI)
/* Uses PARI functions provided in link
* Sample run uses a = [0, 12], b=10, p=2, direct=True */
GetAllGIs(0, 12, 10, 2, 1) \\ Robert Tanniru, Nov 20 2013
CROSSREFS
KEYWORD
nonn,base,hard
AUTHOR
Paul Lusch, Sep 09 2002
EXTENSIONS
More terms from Robert G. Wilson v, Aug 02 2004
New term a(13) inserted by Robert Tanniru, Nov 20 2013
STATUS
approved