1,1

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

The square root of 77327 = 278.077327...

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}] (from Robert G. Wilson v Aug 02 2004)

Cf. A074762.

Sequence in context: A091691 A024103 A092661 this_sequence A136954 A155600 A091106

Adjacent sequences: A074838 A074839 A074840 this_sequence A074842 A074843 A074844

nonn,base

Paul Lusch (plusch(AT)flash.net), Sep 09 2002

More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 02 2004