A069701 Squares with internal digits also forming a square > 0.

144, 196, 441, 841, 1369, 3364, 4096, 5041, 8649, 10816, 11449, 20164, 38416, 61009, 64009, 77841, 117649, 132496, 170569, 231361, 249001, 288369, 310249, 405769, 564001, 619369, 1004004, 1077444, 1129969, 2163841, 2256004, 3013696

Offset

0,1

Links

Table of n, a(n) for n=0..31.

Example

3364 is a member as 3364 and 36 both are squares.

Mathematica

nzsqr[n_] := n>0&&IntegerQ[Sqrt[n]]; Select[Range[10, 2000], nzsqr[FromDigits[Drop[Drop[IntegerDigits[ #^2], 1], -1]]]&]^2

Crossrefs

Sequence in context: A165076 A165078 A135780 * A358666 A349064 A124144

Adjacent sequences: A069698 A069699 A069700 * A069702 A069703 A069704

Keyword

base,nonn

Author

Amarnath Murthy, Apr 06 2002

Extensions

Edited by Dean Hickerson, Apr 09 2002

Status

approved