OFFSET
1,1
COMMENTS
A145848 is a subsequence.
LINKS
David W. Wilson, Table of n, a(n) for n = 1..1000
EXAMPLE
324 = 18^2, 9 = 3^2, 3249 = 324:9 = 57^2.
9 = 3^2, 25 = 5^2, 9025 = 9:0:25 = 95^2 (intervening zero).
MATHEMATICA
s={}; Do[n2=n*n; id=IntegerDigits[n2]; Le=Length[id]; Do[If[IntegerQ/@Sqrt[FromDigits/@{Take[id, k], Drop[id, k]}] == {True, True}, If[FromDigits@Drop[id, k]>0, Print[n2]; AppendTo[s, n2]; Break[]]], {k, 1, Le-1}], {n, 4, 10^4}]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Nov 08 2008
EXTENSIONS
Edited by Charles R Greathouse IV, Apr 24 2010
Definition corrected by David W. Wilson, Nov 22 2012
STATUS
approved