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,1

Links

Harvey P. Dale and Charles R Greathouse IV, Table of n, a(n) for n = 1..10000 (first 294 terms from Dale)

Mathematica

Flatten[Table[Select[FromDigits/@Tuples[{2, 3, 5, 6, 7, 8}, n], IntegerQ[ Sqrt[ #]]&], {n, 2, 6}]] (* Harvey P. Dale, Feb 05 2014 *)

Prog

(PARI) is(n)=issquare(n) && #setintersect(Set(digits(n)), [0, 1, 4, 9])==0 \\ Charles R Greathouse IV, Aug 28 2016

Crossrefs

Cf. A019544, A000290. Different from A077676.

Sequence in context: A066217 A265211 A205644 * A077676 A030671 A030681

Adjacent sequences: A077434 A077435 A077436 * A077438 A077439 A077440

Keyword

nonn,base

Author

Reinhard Zumkeller, Nov 06 2002

Extensions

Replaced 9 by 8 in the definition. - Tanya Khovanova, Dec 09 2008

Status

approved