OFFSET
1,2
LINKS
Lars Blomberg, Table of n, a(n) for n = 1..10000
EXAMPLE
1^2 = (1), 190^2 = 36(1)00, 1145^2 = 131(1)025.
MATHEMATICA
ond1Q[n_]:=Module[{len=IntegerLength[n^2]}, OddQ[len]&&IntegerDigits[n^2][[(len+1)/2]]==1]; Select[Range[1500], ond1Q] (* Harvey P. Dale, Jun 06 2018 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Lars Blomberg, Dec 22 2016
STATUS
approved