

A176899


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


0



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS

Table of n, a(n) for n=1..42.


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


CROSSREFS

Cf. A176882.
Sequence in context: A183997 A211822 A233552 * A302229 A302672 A302476
Adjacent sequences: A176896 A176897 A176898 * A176900 A176901 A176902


KEYWORD

nonn,base


AUTHOR

Zak Seidov, Dec 07 2010


STATUS

approved



