|
| |
|
|
A028374
|
|
The curved sequence: numbers that have only curved digits (0, 2, 3, 5, 6, 8, 9).
|
|
4
| |
|
|
0, 2, 3, 5, 6, 8, 9, 20, 22, 23, 25, 26, 28, 29, 30, 32, 33, 35, 36, 38, 39, 50, 52, 53, 55, 56, 58, 59, 60, 62, 63, 65, 66, 68, 69, 80, 82, 83, 85, 86, 88, 89, 90, 92, 93, 95, 96, 98, 99, 200, 202, 203, 205, 206, 208, 209, 220, 222, 223, 225, 226, 228, 229, 230, 232, 233
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
MATHEMATICA
| f[n_] := Block[{id = IntegerDigits[n], curve = {0, 2, 3, 5, 6, 8, 9}}, If[ Union[ Join[id, curve]] == curve, True, False]]; Select[ Range[0, 240], f[ # ] & ]
|
|
|
CROSSREFS
| Cf. A028373, The straight sequence. Cf. A072960 (curved digits 0, 3, 6, 8, 9 only).
Sequence in context: A173666 A063756 A117522 * A050578 A028776 A028734
Adjacent sequences: A028371 A028372 A028373 * A028375 A028376 A028377
|
|
|
KEYWORD
| base,easy,nonn
|
|
|
AUTHOR
| Greg Heil (gheil(AT)scn.org)
|
|
|
EXTENSIONS
| Corrected and extended by Rick L. Shepherd (rshepherd2(AT)hotmail.com), May 21 2003
Offset corrected by Arkadiusz Wesolowski, Aug 15 2011
|
| |
|
|
