login
A077437
Squares whose decimal digits are nonsquares (2, 3, 5, 6, 7, 8).
4
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
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Nov 06 2002
EXTENSIONS
Replaced 9 by 8 in the definition. - Tanya Khovanova, Dec 09 2008
STATUS
approved