|
| |
|
|
A028373
|
|
The straight sequence: numbers that have only the straight digits {1, 4, 7}.
|
|
6
| |
|
|
1, 4, 7, 11, 14, 17, 41, 44, 47, 71, 74, 77, 111, 114, 117, 141, 144, 147, 171, 174, 177, 411, 414, 417, 441, 444, 447, 471, 474, 477, 711, 714, 717, 741, 744, 747, 771, 774, 777, 1111, 1114, 1117, 1141, 1144, 1147, 1171, 1174, 1177, 1411, 1414, 1417, 1441
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
MATHEMATICA
| f[n_] := Block[{id = IntegerDigits[n], straight = {1, 4, 7}}, If[ Union[ Join[id, straight]] == straight, True, False]]; Select[ Range[0, 1446], f[ # ] & ]
|
|
|
CROSSREFS
| Cf. A028374, the curved sequence.
Sequence in context: A195171 A184623 A184581 * A190769 A083051 A198269
Adjacent sequences: A028370 A028371 A028372 * A028374 A028375 A028376
|
|
|
KEYWORD
| easy,nonn,base
|
|
|
AUTHOR
| Greg Heil (gheil(AT)scn.org)
|
| |
|
|
