|
|
A053961
|
|
Squares composed of digits {4,6,9}.
|
|
2
|
|
|
4, 9, 49, 64, 44944, 69696, 4999696, 9696996, 9966649, 999444996, 4649466969, 64944444964, 6469646694964996, 69446644696999969, 9446966946446994496, 44499464666496696649, 446646664496496964644, 466994666666446696996, 9469699669494449499664, 494494499966694999949669969
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
More terms from C. Ronaldo (aga_new_ac(AT)hotmail.com), Jan 03 2005
|
|
STATUS
|
approved
|
|
|
|