

A061863


Numbers that are the product of the squares of some subset of their digits.


2



0, 1, 25, 36, 784, 1764, 2916, 36864, 46656, 82944, 746496, 777924, 49787136, 329204736, 429981696, 914457600, 3186376704, 3657830400, 3749847696, 3869835264, 7169347584, 14999390784, 19297377225, 22658678784, 149824733184, 166659897600, 247669456896
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,3


LINKS



EXAMPLE

784 = (7.4)^2


MATHEMATICA

Join[{0}, Select[Range[100000], MemberQ[Times@@@(Subsets[IntegerDigits[#], IntegerLength[#] 1]^2), #]&]] (* To generate all of the terms of the sequence shown above, increase the "Range" to 10^11, but the program will run a very long time. *) (* Harvey P. Dale, Nov 25 2011 *)


CROSSREFS



KEYWORD

base,nice,nonn


AUTHOR



EXTENSIONS



STATUS

approved



