|
Search: id:A028374
|
|
|
| A028374 |
|
The curved sequence: numbers that have only curved digits (0, 2, 3, 5, 6, 8, 9). |
|
+0
5
|
|
| 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; listen)
|
|
|
OFFSET
|
0,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: A035399 A063756 A117522 this_sequence A050578 A028776 A028734
Adjacent sequences: A028371 A028372 A028373 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|
