login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

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

%I #15 May 14 2024 23:22:12

%S 144,196,441,841,1369,3364,4096,5041,8649,10816,11449,20164,38416,

%T 61009,64009,77841,117649,132496,170569,231361,249001,288369,310249,

%U 405769,564001,619369,1004004,1077444,1129969,2163841,2256004,3013696

%N Squares with internal digits also forming a square > 0.

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

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

%K base,nonn

%O 1,1

%A _Amarnath Murthy_, Apr 06 2002

%E Edited by _Dean Hickerson_, Apr 09 2002

%E Offset changed by _Sean A. Irvine_, May 14 2024