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
LINKS
Robert Tanniru, PARI Code
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