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

361, 1225, 11025, 15129, 15625, 21025, 23104, 36100, 105625, 119025, 122500, 171396, 251001, 262144, 311364, 1010025, 1050625, 1071225, 1102500, 1113025, 1134225, 1151329, 1311025, 1512900, 1562500, 2102500, 2111209, 2175625, 2310400, 3610000, 4515625, 5116644, 6155361, 9150625, 10017225, 10562500, 11015761, 11390625, 11902500, 12250000, 13097161, 15405625

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..300

Mathematica

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]]
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 *)

Crossrefs

Cf. A176882.

Sequence in context: A183997 A211822 A233552 * A361704 A302229 A302672

Adjacent sequences: A176896 A176897 A176898 * A176900 A176901 A176902

Keyword

nonn,base

Author

Zak Seidov, Dec 07 2010

Status

approved