This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A136333 Numbers containing only digits coprime to 10 in their decimal representation. 8

%I

%S 1,3,7,9,11,13,17,19,31,33,37,39,71,73,77,79,91,93,97,99,111,113,117,

%T 119,131,133,137,139,171,173,177,179,191,193,197,199,311,313,317,319,

%U 331,333,337,339,371,373,377,379,391,393,397,399,711,713,717,719,731

%N Numbers containing only digits coprime to 10 in their decimal representation.

%C Numbers containing digits 1,3,7,9 only, or, numbers written in base 4 (cf. A007090) with digits mapped by: 0->1, 1->3, 2->7 and 3->9. - _Reinhard Zumkeller_, Jul 17 2014

%H Reinhard Zumkeller, <a href="/A136333/b136333.txt">Table of n, a(n) for n = 1..10000</a>

%H <a href="/index/Ar#10-automatic">Index entries for 10-automatic sequences</a>.

%t fQ[n_] := Block[{s = {1, 3, 7, 9}}, Union[Join[s, IntegerDigits@ n]] == s]; Select[ Range@ 1000, fQ] (* or *)

%t depth = 3; FromDigits@# & /@ FlattenAt[ Table[ Tuples[{1, 3, 7, 9}, n], {n, depth}], {#} & /@ Range[depth]] (* _Robert G. Wilson v_, Jul 02 2014 *)

%o import Data.List (intersect)

%o a136333 n = a136333_list !! (n-1)

%o a136333_list = filter (null . intersect "024568" . show) [1..]

%o -- _Reinhard Zumkeller_, Jul 17 2014

%Y Cf. A091633 (primes), A245193.

%K nonn,base,easy

%O 1,2

%A _Reinhard Zumkeller_, Mar 26 2008

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified October 21 16:25 EDT 2019. Contains 328302 sequences. (Running on oeis4.)