A077437 Squares whose decimal digits are nonsquares (2, 3, 5, 6, 7, 8).
25, 36, 225, 256, 576, 625, 676, 5625, 5776, 7225, 8836, 27225, 27556, 33856, 37636, 55225, 65536, 75625, 225625, 226576, 235225, 265225, 266256, 275625, 276676, 286225, 352836, 367236, 378225, 525625, 538756, 553536, 585225, 586756, 665856
Offset: 1
Links
- Harvey P. Dale and Charles R Greathouse IV, Table of n, a(n) for n = 1..10000 (first 294 terms from Dale)
Programs
-
Mathematica
Flatten[Table[Select[FromDigits/@Tuples[{2,3,5,6,7,8},n],IntegerQ[ Sqrt[ #]]&],{n,2,6}]] (* Harvey P. Dale, Feb 05 2014 *)
-
PARI
is(n)=issquare(n) && #setintersect(Set(digits(n)),[0,1,4,9])==0 \\ Charles R Greathouse IV, Aug 28 2016
Extensions
Replaced 9 by 8 in the definition. - Tanya Khovanova, Dec 09 2008