OFFSET
1,1
EXAMPLE
576 = 24^2 and 676 = 26^2, so 576 is a term of the sequence.
MAPLE
for n from 1 to 10^6 do if issqr(n^2+10^(length(n^2)-1)) then printf(`%d, `, n^2); fi:od:
MATHEMATICA
f[n_] := Block[{a = IntegerDigits[n]}, a[[1]] = a[[1]] + 1; FromDigits[a]]; Select[ Range[10^5], IntegerQ[ Sqrt[ f[ #^2]]] & ]^2
Select[Range[60000]^2, IntegerQ[Sqrt[#+10^(IntegerLength[#]-1)]]&] (* Harvey P. Dale, May 27 2014 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Joseph L. Pe, Feb 20 2002
EXTENSIONS
Edited and extended by Robert G. Wilson v, Feb 21 2002
STATUS
approved