OFFSET
1,1
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..10000
MAPLE
a:= proc(n) option remember; local d, i, k;
for k from 1+`if`(n=1, 1, a(n-1))
do for i to length(k)-1 do
if issqr(iquo(k, 10^i, 'd')) and
issqr(d) then return k fi
od
od
end:
seq(a(n), n=1..60); # Alois P. Heinz, Aug 29 2015
MATHEMATICA
qQ[n_] := Floor[ Sqrt@ n]^2 == n; ok[n_] := Catch[ Do[ If[ qQ@ Floor[n / 10^k] && qQ@ Mod[n, 10^k], Throw@ True], {k, IntegerLength[n] -1}]; False]; Select[Range@ 1000, ok] (* Giovanni Resta, Aug 29 2015 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Giovanni Teofilatto, Aug 29 2015
EXTENSIONS
Name clarified by Zak Seidov, Aug 29 2015
STATUS
approved