

A028374


Curved numbers: numbers that have only curved digits (0, 2, 3, 5, 6, 8, 9).


8



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;
text;
internal format)



OFFSET

1,2


LINKS

K. D. Bajpai, Table of n, a(n) for n = 1..10000
Index entries for 10automatic sequences.


EXAMPLE

From K. D. Bajpai, Sep 07 2014: (Start)
206 is in the sequence because it has only curved digits 2, 0 and 6.
208 is in the sequence because it has only curved digits 2, 0 and 8.
2035689 is the smallest number having all the curved digits.
(End)


MAPLE

N:= 3: S:= {0, 2, 3, 5, 6, 8, 9}: K:= S:
for j from 2 to N do
K:= map(t > seq(10*t+s, s=S), K);
od:
print( K); # K. D. Bajpai, Sep 07 2014


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[ # ] & ]
Select[Range[0, 249], Union[DigitCount[#] * {1, 0, 0, 1, 0, 0, 1, 0, 0, 0}] == {0} &] (* Alonso del Arte, May 23 2014 *)
Select[Range[0, 500], Intersection[IntegerDigits[#], {1, 4, 7}]=={}&] (* K. D. Bajpai, Sep 07 2014 *)


PROG

(Python)
for n in range(10**3):
..s = str(n)
..if not (s.count('1') + s.count('4') + s.count('7')):
....print(n, end=', ') # Derek Orr, Sep 19 2014
(Magma) [n: n in [0..300]  Set(Intseq(n)) subset [0, 2, 3, 5, 6, 8, 9] ]; // Vincenzo Librandi, Sep 19 2014


CROSSREFS

Cf. A028373 (the straight sequence), A072960 (curved digits 0, 3, 6, 8, 9 only).
Sequence in context: A299101 A335658 A294941 * A050578 A283513 A028776
Adjacent sequences: A028371 A028372 A028373 * A028375 A028376 A028377


KEYWORD

base,easy,nonn


AUTHOR

Greg Heil (gheil(AT)scn.org), Dec 11 1999


EXTENSIONS

Corrected and extended by Rick L. Shepherd, May 21 2003
Offset corrected by Arkadiusz Wesolowski, Aug 15 2011


STATUS

approved



