|
%I #7 Jul 16 2016 13:36:30
%S 1,4,9,16,49,64,81,100,169,196,225,256,361,400,625,841,900,1225,1296,
%T 1369,1444,1521,1600,1936,2025,2809,3025,3249,4225,4900,5329,5476,
%U 5625,5776,5929,6400,7225,8100,9025,10000,12996,13225,13689,15625,16900
%N Squares that remain a square if a suitably chosen digit is dropped.
%H Harvey P. Dale, <a href="/A034377/b034377.txt">Table of n, a(n) for n = 1..1000</a>
%e 1296 = 36^2 belongs to the sequence as removing 2 yields 196 = 14^2. 1444 = 38^2 belongs to the sequence as removing 4 yields 144 = 12^2.
%t srsQ[n_]:=AnyTrue[FromDigits/@Table[Drop[IntegerDigits[n],{i}],{i, IntegerLength[ n]}],IntegerQ[Sqrt[#]]&]; Select[Range[200]^2,srsQ] (* The program uses the AnyTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Jul 16 2016 *)
%Y Cf. A062387, A034378.
%K nonn,base
%O 1,2
%A _Erich Friedman_
|
