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

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

Links

Table of n, a(n) for n=1..15.

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

Cf. A232086, A232110, A074762.

Sequence in context: A092661 A196071 A304303 * A272208 A136954 A328467

Adjacent sequences: A074838 A074839 A074840 * A074842 A074843 A074844

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