A018884 Squares using at most two distinct digits, not ending in 0.
1, 4, 9, 16, 25, 36, 49, 64, 81, 121, 144, 225, 441, 484, 676, 1444, 7744, 11881, 29929, 44944, 55225, 69696, 9696996, 6661661161
Offset: 1
References
- Richard K. Guy, Unsolved Problems in Number Theory, Section F24 (at p. 262) (Springer-Verlag, 2d ed. 1994).
Links
- Eric Weisstein's World of Mathematics, Square Number.
Programs
-
Mathematica
Flatten[Table[Select[Flatten[Table[FromDigits/@Tuples[{a,b},n],{n,10}]], IntegerQ[ Sqrt[#]]&],{a,9},{b,9}]]//Union (* Harvey P. Dale, Sep 21 2018 *)
Comments