OFFSET
1,1
LINKS
Lars Blomberg, Table of n, a(n) for n = 1..10000
EXAMPLE
10^2 = 1(0)0, 195^2 = 38(0)25, 1000^2 = 100(0)000.
The sequences of squares starts: 100, 400, 900, 10000, 11025, 19044, 21025, 24025, 32041, 38025, 40000, ...
MATHEMATICA
Select[Range@ 1175, Function[w, And[OddQ@ Length@ w, First@ Take[w, {Ceiling[Length[w]/2]}] == 0]]@ IntegerDigits[#^2] &] (* Michael De Vlieger, Dec 12 2016 *)
PROG
(PARI) isok(n) = my(d=digits(n^2)); (#d % 2) && (d[#d\2 + 1] == 0); \\ Michel Marcus, Dec 18 2016
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Lars Blomberg, Dec 12 2016
STATUS
approved