A176899 - OEIS

%I #10 Jul 20 2023 18:27:48

%S 361,1225,11025,15129,15625,21025,23104,36100,105625,119025,122500,

%T 171396,251001,262144,311364,1010025,1050625,1071225,1102500,1113025,

%U 1134225,1151329,1311025,1512900,1562500,2102500,2111209,2175625,2310400,3610000,4515625,5116644,6155361,9150625,10017225,10562500,11015761,11390625,11902500,12250000,13097161,15405625

%N Squares n with digit 1 that remain positive square after  omitting all 1's from n.

%H Harvey P. Dale, <a href="/A176899/b176899.txt">Table of n, a(n) for n = 1..300</a>

%t Reap[Do[id=IntegerDigits[n^2];If[MemberQ[id,1]&&(fd=FromDigits[DeleteCases[id,1]])>0&&IntegerQ[Sqrt[fd]],Sow[n^2]],{n,5000}]][[2,1]]

%t ps1Q[n_]:=Module[{c=FromDigits[DeleteCases[IntegerDigits[n],1]]},DigitCount[n,10,1]>0&&Positive[c]&&IntegerQ[Sqrt[c]]]; Select[Range[4000]^2,ps1Q] (* _Harvey P. Dale_, Jul 20 2023 *)

%Y Cf. A176882.

%K nonn,base

%O 1,1

%A _Zak Seidov_, Dec 07 2010