|
%I #27 May 01 2018 09:29:13
%S 0,3,6,8,9,30,33,36,38,39,60,63,66,68,69,80,83,86,88,89,90,93,96,98,
%T 99,300,303,306,308,309,330,333,336,338,339,360,363,366,368,369,380,
%U 383,386,388,389,390,393,396,398,399,600,603,606,608,609,630,633,636,638
%N Numbers using only the curved digits 0, 3, 6, 8 and 9.
%C Exponential density 0.69897... = log 5/log 10. A 10-automatic sequence. - _Charles R Greathouse IV_, Jul 22 2012
%D M. J. Halm, Three Boxes, Puzzle-M Magazine (Apr. 1987).
%H Seiichi Manyama, <a href="/A072960/b072960.txt">Table of n, a(n) for n = 1..1000</a>
%H <a href="/index/Ar#10-automatic">Index entries for 10-automatic sequences</a>.
%t f[n_] := Block[{id = IntegerDigits[n], curve = {0, 3, 6, 8, 9}}, If[ Union[ Join[id, curve]] == curve, True, False]]; Select[ Range[0, 240], f[ # ] & ]
%t FromDigits/@Tuples[{0,3,6,8,9},3] (* _Harvey P. Dale_, May 01 2018 *)
%o (PARI) isok(n)= my(d = Set(digits(n))); for (k=1, #d, if (vecsearch([1,2,4,5,7],d[k]), return (0))); 1; \\ _Michel Marcus_, May 11 2016
%o (Python)
%o from itertools import product
%o A072960_list = [0] + [int(a+''.join(b)) for l in range(5) for a in '3689' for b in product('03689',repeat=l)] # _Chai Wah Wu_, May 12 2016
%K easy,nonn,base
%O 1,2
%A _Michael Joseph Halm_, Aug 13 2002
%E Corrected by _Rick L. Shepherd_, Aug 13 2002
%E Offset corrected by _Arkadiusz Wesolowski_, Aug 15 2011
|
