OFFSET
1,1
EXAMPLE
511 is in the sequence because 511^2 = 261121
and the suffix 11 is in the middle of the decimal expansion of 261121.
MATHEMATICA
lst={}; Do[a=IntegerDigits[n^2]; b=Length[a]; l=IntegerLength[n]-1; c=IntegerLength[Mod[n, 10^l]]; If[Mod[n, 10^l]==0, c=1]; If[EvenQ[b-c]&&FromDigits[Take[a, {(b-c)/2+1, (b+c)/2}]]==Mod[n, 10^l], AppendTo[lst, n]], {n, 10, 10^6}]; lst
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Michel Lagneau, May 28 2014
STATUS
approved