|
| |
|
|
A046030
|
|
Digits are squares.
|
|
3
| |
|
|
0, 1, 4, 9, 10, 11, 14, 19, 40, 41, 44, 49, 90, 91, 94, 99, 100, 101, 104, 109, 110, 111, 114, 119, 140, 141, 144, 149, 190, 191, 194, 199, 400, 401, 404, 409, 410, 411, 414, 419, 440, 441, 444, 449, 490, 491, 494, 499, 900, 901, 904, 909, 910, 911, 914, 919
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
LINKS
| Eric Weisstein's World of Mathematics, Link to a section of The World of Mathematics.
|
|
|
MATHEMATICA
| Union[FromDigits/@Flatten[With[{l={0, 1, 4, 9}}, Table[Tuples[l, {i}], {i, 3}]], 1]] [From Harvey P. Dale, Dec. 19, 2010]
Select[Range[0, 999], Intersection[{2, 3, 5, 6, 7, 8}, Union[IntegerDigits[#]]] == {} &]
|
|
|
CROSSREFS
| Sequence in context: A166498 A174800 A062371 * A125726 A175308 A180149
Adjacent sequences: A046027 A046028 A046029 * A046031 A046032 A046033
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Eric Weisstein (eric(AT)weisstein.com)
|
| |
|
|
