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

Author

Paul Lusch, Sep 09 2002

Keywords

• nonn
• base
• hard

Comments

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

Examples

			The square root of 77327 = 278.077327...
		

Links

• Robert Tanniru, PARI Code

Crossrefs

Cf. A232086, A232110, A074762.

Programs

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 *)

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

Extensions

More terms from Robert G. Wilson v, Aug 02 2004

New term a(13) inserted by Robert Tanniru, Nov 20 2013