|
| |
|
|
A061863
|
|
Numbers that are the product of the squares of some subset of their digits.
|
|
1
| |
|
|
0, 1, 25, 36, 784, 1764, 2916, 36864, 46656, 82944, 746496, 777924, 49787136, 329204736, 429981696, 914457600, 3186376704, 3657830400, 3749847696, 3869835264, 7169347584, 14999390784, 19297377225
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
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. *) (* From Harvey P. Dale, Nov 25 2011 *)
|
|
|
CROSSREFS
| Sequence in context: A167363 A035383 A179803 * A079270 A127022 A120148
Adjacent sequences: A061860 A061861 A061862 * A061864 A061865 A061866
|
|
|
KEYWORD
| base,nice,nonn
|
|
|
AUTHOR
| Erich Friedman (efriedma(AT)stetson.edu), Jun 23 2001
|
|
|
EXTENSIONS
| More terms from Naohiro Nomoto (6284968128(AT)geocities.co.jp), Jun 25 2001
|
| |
|
|
