A053961 Squares composed of digits {4,6,9}.
4, 9, 49, 64, 44944, 69696, 4999696, 9696996, 9966649, 999444996, 4649466969, 64944444964, 6469646694964996, 69446644696999969, 9446966946446994496, 44499464666496696649, 446646664496496964644, 466994666666446696996, 9469699669494449499664, 494494499966694999949669969
Offset: 1
Links
- P. De Geest, Squares containing at most three distinct digits, Index entries for related sequences
- Author?, Source (txt)
- Hisanori Mishima, Sporadic tridigital solutions
Programs
-
Mathematica
fQ[n_] := Union[ Join[{4, 6, 9}, IntegerDigits[n]]] == {4, 6, 9}; lst = {}; Do[ If[ fQ[n^2], AppendTo[lst, n^2]], {n, 2*10^9}]; lst (* Robert G. Wilson v, Jun 01 2005 *)
Formula
a(n) = A053960(n)^2.
Extensions
More terms from C. Ronaldo (aga_new_ac(AT)hotmail.com), Jan 03 2005
Missing term inserted by Sean A. Irvine, Apr 28 2022