|
| |
|
|
A039381
|
|
Numbers n such that representation in base 9 has same nonzero number of 3's and 7's.
|
|
0
| |
|
|
34, 66, 115, 147, 196, 228, 250, 259, 268, 286, 295, 304, 306, 307, 308, 310, 311, 312, 314, 322, 358, 390, 439, 471, 520, 552, 570, 579, 588, 594, 595, 596, 598, 599, 600, 602, 606, 615, 624, 642, 682, 714, 763, 795, 844, 876, 925, 957, 979, 988, 997, 1015, 1024, 1033, 1035, 1036, 1037, 1039, 1040, 1041, 1043, 1051, 1087, 1119, 1168, 1200, 1249, 1281, 1299, 1308, 1317, 1323, 1324, 1325, 1327, 1328, 1329, 1331, 1335, 1344, 1353, 1371, 1411, 1443, 1492, 1524, 1573, 1605, 1654, 1686, 1708, 1717, 1726, 1744, 1753, 1762
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| okQ[n_]:=Module[{dc3=DigitCount[n, 9, 3]}, dc3>0&&dc3==DigitCount[n, 9, 7]]
Select[Range[2000], okQ]
|
|
|
CROSSREFS
| Sequence in context: A119454 A115159 A125192 * A043204 A043984 A028381
Adjacent sequences: A039378 A039379 A039380 * A039382 A039383 A039384
|
|
|
KEYWORD
| nonn,base,easy
|
|
|
AUTHOR
| Olivier Gerard (olivier.gerard(AT)gmail.com)
|
|
|
EXTENSIONS
| Additional terms provided and Mathematic program provided by Harvey P. Dale, Nov. 26, 2010
|
| |
|
|
